файлы паскаль

[olya3]

1 Поменять местами первое и последнее слово каждой строки. Слова разделяются пробелами.
2 . Удалить из текста все односимвольные слова и пробелы, следующие за ними. Вывести удаленные слова.
3 Во всех словах, которые состоят только из строчных латинских букв, заменить эти буквы прописными.

Помогите пожалуйста!!!!

[Андрей.12]

uses crt;
var s,b,s1,s2,s3:string;
z,i,k,n,t,o,y:integer;
begin
clrscr;
readln(s);
b:=' ';
n:=pos(b,s);
k:=n-1;
s1:=copy(s,1,k);
y:=length(s);
t:=length(s);
repeat
t:=t-1;
until s[t]=b;
z:=t+1;
o:=(y-z)+1;
s2:=copy(s,z,t);
delete(S,1,K);
delete(s,z,o);
s3:=s2+s+s1;
write(s3);
readln;
end.

Поменять местами первое и последнее слово каждой строки. Слова разделяются пробелами.

[Анатоль]

Задача 2
program 1_simvol;
var
s : string;
i : longint;
begin
readln(s);
i := 1;
while i <= length(s) do
begin
if ((s[i] in ['a'..'z']) and (s[i+1] = ' ')) or ((s[i] in ['A'..'Z']) and (s[i+1] = ' ')) then
delete(s,i,2);
else
inc(i);
end;
write(s);
end.