Найти максимальное число в строке

Program kl;
var s: string;
    c: char;
    i: byte;
begin
write('s='); 
readln(s);
i:=1;
repeat
i:=i+1;
until (s[i] in ['0'..'9']) or (i>length(s));
c:=s[i];
for i:=1 to length(s) do
    if (s[i] in ['0'..'9']) and (s[i]>c)
       then c:=s[i];
writeln('Максимальная цифра=',c);
end.

var
  max, x: real;
  i, j, error: integer;
  s, t, m: string;
  found: boolean;
 
begin
  found := false;
  writeln('Введите строку, содержащую числа:');
  readln(s);
  for i := 1 to length(s) do
    for j := i to length(s) do
      begin
        t := copy(s, i, j - i + 1);
        val(t, x, error);
        if (error = 0) and (not found or (x > max))
          then begin
            found := true;
            max := x;
            m := t
          end
      end;
  if found
    then write('Максимальное число = ', m)
    else write('Числа не найдены');
  readln
end.

var
  max, x: real;
  i, j, error, found: integer;
  s, t, m: string;
 
begin
  found := 0;
  writeln('Введите строку, содержащую числа:');
  readln(s);
  for i := 1 to length(s) do
    for j := i to length(s) do
      begin
        t := copy(s, i, j - i + 1);
        val(t, x, error);
        if (error = 0) and ((found = 0) or (x > max))
          then begin
            found := 1;
            max := x;
            m := t
          end
      end;
  if found = 1
    then write('Максимальное число = ', m)
    else write('Числа не найдены');
  readln
end.