Дано трёхзначное число. Найти среди цифр этого числа, максимальное. Программа в Паскале

program zz1;

var i, s, k, p:integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число'); / / вводим с клавиатуры число

read (i);

p:=i mod 10; / / находим последнюю цифру числа

k:=i div 100; / / находим первую цифру числа

s: = (i mod 100) div 10; / / находим среднюю цифру числа

if (p > k) and (p > s) then writeln (' максимальная последняя цифра = ', p); / / выводим ответ

if (k > p) and (k > s) then writeln (' максимальная первая цифра = ', k);

if (s > k) and (s > p) then writeln (' максимальная средняя цифра = ', s);

end.