Символьный тип

[Patrick]

Дана последовательность символов,заканчивающаяся символом '+' .Определить и вывести на экран монитора номера символов,имеющих наибольший и наименьший номер.

[puporev]

uses crt;
var c,cmn,cmx:char;
    mn,mx:byte;
begin
clrscr;
writeln('Введите символы, окончание ввода  + ');
mn:=255;
mx:=0;
repeat
c:=readkey;
write(c);
if ord(c)<mn then
  begin
   mn:=ord(c);
   cmn:=c;
  end
else if ord(c)>mx then
  begin
   mx:=ord(c);
   cmx:=c;
  end;
until c='+';
writeln;
writeln('Максимальный номер имеет символ ',cmx,' = ',mx);
writeln('Минимальный номер имеет символ  ',cmn,' = ',mn);
readln
end.