задача на обработку строк и простейших структур данных

[LyaLyaLya]

Помогите, пожалуйста, разобраться с текстовым файлом. Запуталась, а завтра зачет!!
Вот задание:Определить количество слов, поменять местами четные и нечетные слова.

Я попробывала что-то написать, но получается какой-то ужас:

program pr6;
uses crt;

var ff,gg:text;
b:array [1..20] of real;
f:array[1..3] of string;
t1,t2:string;
i,j,k,n1,n2:integer;

begin
clrscr;

assign(ff,'d:\pp.txt');
reset(ff);
j:=0;k:=0;

  while not eoln(ff) do begin j:=j+1;
  readln(ff,f[j]);writeln(f[j]);end;
  close(ff);

reset(ff);j:=0;
while not eoln(ff) do begin j:=j+1;
readln(ff,f[j]);
   i:=0;
   while i<=length(f[j]) do begin i:=i+1;
   t1:=copy(f[j],i,1); t2:=copy(f[j],i+1,1);
   if (t1=' ') and (t2<>' ') then begin k:=k+1;
   n1:=i+1;write(n1);end;
   if (t1<>' ') and (t2=' ') then begin
   n2:=i;writeln(n2);
   b[k]:=n2+n1;end;end;end;
   write(k);close(ff);
for i:=1 to k do
write(b[k]:5:0);
end.

[LyaLyaLya]

зачем создавать раздел форума для помощи, если помощи нет?

[LyaLyaLya]

*********************************** *
*********************************** ******
*****

*********************************** *****
***************
*************
*********************************** **