ответьте . От души заранее

Общение между людьми – это естественный и жизненно важный процесс. Когда-то эпистолярный жанр был единственным доступным общения людей, находящихся на удалении друг от друга. Почта существовала со времен древнего Рима, если не раньше. Люди переписывались. В литературе известны даже романы и повести в письмах.

Современные достижения в сфере  информационных технологий предлагают новые, более совершенные общения.

При этом почтовая переписка сохраняется. Это старый, но надежный общения, который обладает своими неповторимыми качествами. Современный формат почтовой переписки представляет электронная почта, иначе E-mail.

Электронная почта в отличие от обычной позволяет общаться адресатам практически мгновенно. Нажал кнопку «Отправить» (письмо), и через несколько секунд получатель видит это письмо в своей почте, в папке «Входящие».

Вариант с циклом while ... do...
program z1;
uses crt;
var n:longint;
i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
i:=1;                {это будет переменная-счетчик}
while i<=5 do
begin
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;       {в этой строке исправлена опечатка в оригинале}    
i:=i+1;                   {наращиваем счетчик вручную}
end;
writeln(max);
end.

Вариант с циклом repeat ... until
program z1;
uses crt;
var n:longint;i,max,x:integer;
begin
clrscr;
read(n);
max:=-1;
i:=1;
repeat
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;
i:=i+1;
until i>5;
writeln(max);
end.

Вариант с циклом repeat ... until без счетчика!
program z1;
uses crt;
var n:longint;
max,x:integer;
begin
clrscr;
read(n);
max:=-1;
repeat
x:= n mod 10;
if x>max then max:=x;
n:= n div 10;
until n=0;
writeln(max);
end.
В последнем примере условием окончания цикла будет случай, когда число станет равным 0. Действительно, после каждого повторения цикла число становится на один разряд меньше (выделенная цветом строка программы), значит, когда-нибудь такое число станет равным 0 (цикл подходит для числа с любым количеством цифр). Пример: 34567 -> 3456 -> 345 -> 34 -> 3 -> 0