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

uses crt;
var s: array [1..100] of string;
    i,j,m,l,lmax: integer;
begin
write('m=');
readln(m);
lmax:=0;
for i:=1 to m do
    begin
    write('Введите ',i,' строку ');
    readln(s[i]);
    l:=length(s[i]);
    if l>lmax then lmax:=l;
    end;
writeln('Выровненные строки');
for i:=1 to m do
    begin
    for j:=1 to (lmax-length(s[i])) do
        s[i]:='*'+s[i];
    writeln(s[i]);
    end;
end.

uses crt;
var s: array [1..100] of string;
    n,i,j,k: integer;
begin
write('Введите количество строк ');
readln(n);
for i:=1 to n do
    begin
    write('s',i,'=');
    readln(s[i]);
    for j:=1 to length(s[i]) do
        if s[i][j]=' ' then inc(k);
    end;
writeln('Общее количество пробелов ',k);
end.

uses crt;
var s: array [1..100] of string;
    n,i,j,k: integer;
begin
write('Введите количество строк ');
readln(n);
for i:=1 to n do
    begin
    write('s',i,'=');
    readln(s[i]);
    end;
for i:=n downto 1 do
    begin
    for j:=length(s[i]) downto 1 do
        write(s[i][j]);
    writeln;
    end;
end.