массивы не могу раздуплиться

[cblpozha]

Обьясните как сделать программу для сортировки букв программа сортирует числа а при записи в исходный файл букв во второй файл переписывает все строки вот буквы
a b c
a c b
b a c
b c a
c a b
c b a
потрібно щоб залишились
c a b
b a c

типовой вариант

У текстовому файлі записано:
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
Потрібно щоб програма залишила лише строки:
2 3 1
3 1 2
Та записало в новий текстовий файл

uses crt;
var f,g:text;
s,s1,s2:string;
i,k,t,c:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
while not eof(f) do
begin
readln(f,s);{читаем строку}
s1:=s+' ';{создаем вспомогательную, над ней измываться будем, добавим к ней пробел}
while pos(' ',s1)>0 do{на всякий случай удалим лишние пробелы}
delete(s1,pos(' ',s1),1);{если не нужно, уберите эти 2 строки из кода}
i:=0;k:=0;{счетчики чисел и совпадений их с номером}
while pos(' ',s1)>0 do{пока есть пробелы}
begin
s2:=copy(s1,1,pos(' ',s1)-1);{читаем первое слово}
val(s2,t,c);{преобразуем в число}
i:=i+1;{считаем}
if t=i then k:=k+1;{если совпало число со своим номером, считаем}
delete(s1,1,pos(' ',s1));{удаляем его с пробелом, следующее число первое}
end;
if k=0 then writeln(g,s);{если на разу не совпало, в новый файл}
end;
close(f);
close(g);
write('Fail perepisan!');
readln
end.