Строки

[Mirt]

В текстовом файле записано :
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
Нужно что бы программа оставила строки :
2 1 3
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.

[Mirt]

Уже и методом втыка пробовал, все равно не остаются данные строки у меня во втором текстовом файле, помогите пожалуйста разобраться

[alex_fcsm]

А вы условие не пробывали выкладывать???

[Mirt]

Сообщение от alex_fcsm

А вы условие не пробывали выкладывать???

Пардон, но это все что нам дал препад.

[alex_fcsm]

Я так понимаю условие - вывести все строки, в которых числа стоят на местах, не совпадающих с их значением
то есть
3 1 2
3 на месте 1
1 на месте 2
2 на месте 3
Выводи

3 2 1
3 на месте 1
2 на месте 2 - совпало
1 на месте 3
------------------
Не выводим


В сл. раз сами потрудитесь прочитать комментарии в программе и определить закономерность