pascal ai làm đúng và nhanh thì cho ctlhn ạ

uses crt;
var s,s1: string;
l,d, i, j, dem: integer;
begin
clrscr;
readln(s);
l:= 0;
i := 1;
while i <= length(s) do
begin
 while (i <= length(s)) and (s[i] = ' ') do
inc(i);
if i <= length(s) then
begin
inc(l);
while (i <= length(s)) and (s[i] <> ' ') do
inc(i);
end;
end;
writeln('So tu trong chuoi la: ', l, ' tu');
s1:='';
d:=0;
i:=1;
while i <= length(s) do
begin
while (i <= length(s)) and (s[i] = ' ') do
inc(i);
dem := 0;
j := i;
while (j <= length(s)) and (s[j] <> ' ') do
begin
inc(dem);
inc(j);
end;
if dem >d then
begin
d:= dem;
s1:= copy(s, i, dem);
end;
i := j;
end;
writeln('Tu co do dai lon nhat la: ', s1, ', co ', d, ' ky tu.');
readln;
end.