Pascal. Задачи со строками

[blondinochka]

Очень прошу помочь, нужно решить 2 задачки:

Задан текст. Для каждой цифры, имеющейся в тексте, определить количество повторений.

Дана последовательность символов латинского алфавита и пробелов. Группу символов, разделенную с одной или обеих сторон пробелами и не содержащую внутри себя пробелов, назовем словом. Поменять порядок следования букв на обратный в тех словах, которые имеют наибольшую длину. Подсчитать количество таких слов.

[IT-man]

1

var i:integer;
     s:string;
    c:array[1..10] of integer;
begin
for i:=1 to 10 do
c[i]:=0;
writeln('vvedite stroku');
readln(s);
for i:=1 to lenght(s) do begin
case s[i] of 
1: inc(c[1]);
2: inc(c[2]);
3: inc(c[3]);
4: inc(c[4]);
5: inc(c[5]);
6: inc(c[6]);
7: inc(c[7]);
8: inc(c[8]);
9: inc(c[9]);
0: inc(c[10]);
end;
end;
for i:= 1 to 10 do
if i = 10 then writeln ('0','-',c[i])
else
writeln (i:4,'-',c[i]);
readln;
end.