Вывести на экран символ у которого код равен средне арифметическому максимального и минимального кода строки — Pascal(Паскаль)

uses crt;

var
  s: string;
  i, sr, mn, mx: byte;

begin
  clrscr;
  writeln('Введите строку:');
  readln(s);
  mn := 255;
  mx := 0;
  for i := 1 to length(s) do
    if ord(s[i]) < mn then
      mn := ord(s[i])
    else if ord(s[i]) > mx then
      mx := ord(s[i]);
  writeln('Минимальный  код=', mn);
  writeln('Максимальный код=', mx);
  sr := (mn + mx) div 2;
  writeln('Средний код=', sr, ' это символ ', chr(sr));
  readln

end.