PascalABC для школьников. Задача на строки.

[ARTEM_KA]

Заранее благодарен за помощь. Сам бы решил, да времени нет совсем.

С клавиатуры вводится заданный текст. Определить:
1) Удаляет в тексте заданные слова.
2) Выводит символы текста в обратном порядке.
3) Подсчитывает количество строчных (прописных) букв.
4) Определяет, в каком из слов больше заданных букв.

Ещё раз, заранее благодарен)

[sllh_111]

ну чтож как говориться "с миру по нитки"
я начинаю:
2)

program MoveSymbolsOfString;
var
str: string;

(Функция возвращает символы строки в
обратном порядке)
function MoveSymbols (s: string): string;
var
i: integer;
s1: string;
begin
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
MoveSymbols := s1;
end;

begin
writeln('Программа выводит символы исходной строки '+
'в обратном порядке');
repeat
writeln('Введите исходную непустую строку:');
readln(str);
if (length(str)<1) then
writeln('Исходная строка должна быть непустой');
until length(str)>0;
writeln('Исходная строка:');
writeln(str);
writeln('Строка с переставленными символами:');
writeln(MoveSymbols(str));
writeln('Нажмите [Enter] для завершения программы');
readln;
end.

[Mad_Cat]

3)

function littlecount(s:string):integer;
var c:integer;i:integer;
begin
c:=0;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then inc(c);
littlecount:=c;
end;

[sllh_111]

4) если считать что слова разделены пробелом + посчет "количества самых длинных слов"

procedure Count(S,W:string; var i:integer);
begin
if Pos(W,S)<>0 then
begin
inc(i);
Count(Copy(S,Pos(W,S)+Length(W),Len gth(S)),W,i)
end
end;
var
s,max,temp:string;
i:integer;
begin
writeln('Введите строку...');
readln(s);
temp:='';
max:='';
for i:=1 to length(s) do
begin
if not (s[i] in [' ',',','.']) then
temp:=temp+s[i];
if ((s[i] in [' ',',','.']) or (i=length(s))) and (temp<>'') then
begin
if length(temp)>length(max) then
max:=temp;
temp:=''
end
end;
i:=0;
Count(S,max,i);
writeln('Самое длинное слово: ',max,'. Их в строке: ',i)
end.