Необходимо из строки символов вывести на экран символы с минимальным и максимальным кодами по таблице ASCII

Var ch:char;
    max,min:byte;
Begin
    writeln('Окончание ввода ввод " "');
    max:=0;min:=255;
    Repeat
     write('Введите символ: ');
     readln(ch);
     if ord(ch)>max then max:=ord(ch);
     if ord(ch)<min then min:=ord(ch);
    Until ch=' ';
    writeln('Max символ по таблице ASCII = ',chr(max));
    writeln('Min символ по таблице ASCII = ',chr(min));
    readln;
End.

Var ch:char;
    max,min:byte;
Begin
    writeln('Окончание ввода ввод " "');
    max:=0;min:=255;
    Repeat
     write('Введите символ: ');
     readln(ch);
     if (ord(ch)>max)and(ch<>' ') then max:=ord(ch);
     if (ord(ch)<min)and(ch<>' ') then min:=ord(ch);
    Until ch=' ';
    writeln('Max символ по таблице ASCII = ',chr(max));
    writeln('Min символ по таблице ASCII = ',chr(min));
    readln;
End.