Привет, и снова я, кто-то поможет с программой на Pascal?

решение на Turbo Pascal 7.0

program p2;
uses crt;
var i,j,k:integer;
stroka: string;
a:array[1..20] of string;
begin
clrscr;
write(' ввести слова ');
readln(stroka);
{избавимся от двойных пробелов }
for j:=1 to 3 do
for i:=1 to length(stroka) do
if (stroka[i] =' ') and (stroka[i+1]=' ') then delete(stroka,i, 1);
k:=1;
for i:=1 to length(stroka) do
if (stroka[i] <> ' ')then a[k]:=a[k]+stroka[i]
else k:=k+1;
writeln;
writeln(' Вывод по словам через символ /');
for i:=1 to k do
write(a[i],' / ');
writeln;
readln;
end.

program p1;
uses crt;
var i,j,k:integer;
stroka: string;
a:array[1..20] of string;
begin
clrscr;
write(' ввести слова: ');
readln(stroka);
{избавимся от двойных пробелов }
for j:=1 to 3 do
for i:=1 to length(stroka) do
if (stroka[i] =' ') and (stroka[i+1]=' ') then delete(stroka,i, 1);
k:=1;
for i:=1 to length(stroka) do
if (stroka[i] <>' ')then a[k]:=a[k]+stroka[i]
else k:=k+1;
writeln;
Writeln (a[1], ' ', a[2,1], '. ', a[3,1],'.');
Writeln (' Счастливо, ',a[1], ' ', a[2],'.');
readln;
end.

Источник Георгий Зотиков

посмотри эту программу
program str1; //неповторяющиеся слова через (' ')
uses crt;
var
i,j,k:integer;
s:string;
a:array[1..20] of string;
f:boolean;
begin
clrscr;
write('Vvesti slova cheres probel --> '); readln(s);
//s:=s+'.';
k:=1;
for i:=1 to length(s)-1 do
if (S[I] <>' ')then a[k]:=a[k]+s[i]else
k:=k+1;
writeln('chislo slov = ',k);
writeln('massiv slov ');
for i:=1 to k do
write(' ',a[i],' ');
writeln;
writeln('perechen odinochnih slov ');
for i:=1 to k-1 do begin
f:=true;
for j:=i+1 to k do
if a[i]=a[j] then begin f:=false; break end; // writeln(f);
if not f then write(' ',a[i],' ');
end;
readln;
end.

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