String

[t@t@rin]

2 задачи на строки(я их так и не понял) в Turbo Pascal.. Помогите чем могите)
Задача № раз.
Написать программу, которая определяет длину каждого слова в заданной строке и выводит слова наибольшей длины.
И задача № два.
В символьной строке содержащей не более 80 символов, каждые два соседних слова разделены одним пробелом, строка заканчивается точкой ("."). В заданной строке заменить все цифры на пробелы(задание именно такое я не ошибся))
p.s С наступающим

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,t:integer;
    a:array[1..100] of string;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
t:=1;
for i:=1 to n do
 if  length(a[i])>length(a[t]) then t:=i;
for i:=1 to n do
 if length(a[i])=length(a[t]) then writeln(a[i]);
end.

[alex_fcsm]

uses crt;
var s,sub:string;
    i:integer;

begin
clrscr;
writeln('Input str');
readln(s);
sub:='';
for i:=1 to length(s) do
   if s[i] in ['0'..'9'] then sub:=sub+' '
      else sub:=sub+s[i];
writeln(sub);
end.

[adic.93]

помогите
дана строка, и я должен написать програм который определяет и выводит на экран самое длинное и самое короткое слово, каждое с новой строки(пожалуйста помогите).