Работа с символами и строками. Составить программу, которая выделяет отдельные слова и числа из введенной пользователем строки

uses crt;
const nmax=100;
      r=[' ',',',';',':','!','?'];
var s,sl: string;
    slova: array [1..nmax] of string;
    chisla:array [1..nmax] of real;
    i,e,j,imax: byte;
    b: boolean;
    code: integer;
    chislo: real;
    
begin
write('s='); readln(s);
s:=s+' ';
for i:=1 to length(s) do
    if not (s[i] in r) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          val(sl,chislo,code);
          if code=0 then
             begin
             inc(e);
             chisla[e]:=chislo;
             end else
                 begin
                 inc(j);
                 slova[j]:=sl;
                 end;
          sl:='';
          end;
imax:=1;
for i:=2 to e do
    if chisla[i]>chisla[imax] then imax:=i;
writeln('Максимальное число=',chisla[imax]:0:2);
imax:=1;
for i:=2 to j do
    if length(slova[i])>length(slova[imax]) then imax:=i;
writeln('Максимальное слово=',slova[imax]);
for i:=1 to length(slova[imax]) do
    begin
    for e:=1 to j do
        if length(slova[e])>=i then write(slova[e][i],' ')
           else write('  ');
    writeln;
    end;
end.