Задачи паскаль

[arsenthy]

Символьные массивы. Тип string.
1.Проверить, есть ли в тексте слово с 3-х букв. Если есть, удалить.
2.Проверить, состоит ли текст только из цифр.
3.Проверить есть ли в тексте слова, которые кончаются на "з"
Если есть, то вычислить их количество и удвоить их.
4.Проверить, есть ли в тексте слово с 2-х букв. Если есть, то удалить его.
Помогите пожалуйста.

[Mad_Cat]

Проверить, состоит ли текст только из цифр.

var i:integer;f:boolean;t:string;
begin
readln(t);
f:=true;
For i:=1 to Length(t) do
if not (t[i] in ['0'..'9']) then begin f:=false;break;end;
if f then writeln('Only Digits') else writeln('Not Only Digits');
readln;
end.

[arsenthy]

Пасиб, большое.))