Программа,меняющая местами каждые 2 слова.

[Холд]

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

uses crt;
const rz=['.','?','!',' '];
var f,g:text;
    s:string;
    s1:array[1..18] of string;
    n,i,j:integer;
    c:array [1..10] of char;
begin
clrscr;
j:=1;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');

rewrite(g);
while not eof(f) do
   begin
     readln(f,s);
     for i:=1 to length(s) do
     if s[i] in rz then
        begin
          j:=j+1;
          c[j-1]:=s[i];  
end
     else s1[j]:=s1[j]+s[i];
    end;

Тут считает кол-во слов...а вот как вывести,что б менялись местами у меня не получается,помогите пожалуйста!

[Stilet]

А потом в цикле

i:=1; while i<=18 do begin
 write(s1[i+1],s1[i]);
 inc(i,2);
end;

Понятен смысл?

[Холд]

спасибо огромное!неделю сделать не мог.Теперь понял как подобное делать!