Pascal, обработка текста

[minimo71]

Добрый день, ув. форумчане!

Требуется ваша помощь! Есть задача довольно начального уровня - считать один текс.файл и скопировать текст в другой, но, если 2 рядом находящиеся строчки одинаковы, то записать только одни из них.

Как бы идея мне ясна, но вот никак не могу до конца добить - 1 и 2 строчку проверяет, но вот 2 и 3 уже не хочет (знаю, можно добавить пару строчек, но результат будет похожий - например, не сравнит 4 и 5) [в моём варианте кода]

Поэтому прошу, подскажите как это сделать - не сомневаюсь, это должно быть очень просто, только я никак не могу до этого додуматься!

uses crt;
var f,e: text;
a,b,c: string;
begin
clrscr;
assign(f, 'F:\Tp\SK_LAB1\TEXT.txt');
reset(f);
assign(e, 'F:\Tp\SK_LAB1\IZV.txt');
rewrite(e);
writeln('In progress...');
WHILE NOT Eof(f) do begin
readln(f,a);
b:=a;
readln(f,a);
If a=b then writeln(e,b)
else begin
writeln(e,b);
writeln(e,a);
end;
END;
close(f);
close(e);
writeln('Finished!');
readln;
end.

[baster128]

uses crt;
var f,e: text;
a,b,c: string;
begin
clrscr;
assign(f, 'F:\Tp\SK_LAB1\TEXT.txt');
reset(f);
assign(e, 'F:\Tp\SK_LAB1\IZV.txt');
rewrite(e);
writeln('In progress...');
WHILE NOT Eof(f) do begin
readln(f,a);
b:=a;
read(f,a);//В одном случае read по моему здесь
If a=b then writeln(e,b)
else begin
writeln(e,b);
writeln(e,a);
end;
END;
close(f);
close(e);
writeln('Finished!');
readln;
end.

[Mad_Cat]

uses crt;
var f,e: text;
a,b,c: string;
begin
clrscr;
assign(f, 'F:\Tp\SK_LAB1\TEXT.txt');
reset(f);
assign(e, 'F:\Tp\SK_LAB1\IZV.txt');
rewrite(e);
writeln('In progress...');
b:='';
WHILE NOT Eof(f) do begin
readln(f,a);
if a<>b then writeln(e,a);
b:=a;
END;
END;
close(f);
close(e);
writeln('Finished!');
readln;
end.

[minimo71]

Спасибо за помощь - заработало!

[minimo71]

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

uses crt;
var f,e: text;
a,b,c: string;
begin
clrscr;
assign(f, 'F:\Tp\SK_LAB1\TEXT.txt');
reset(f);
assign(e, 'F:\Tp\SK_LAB1\IZV.txt');
rewrite(e);
writeln('In progress...');
WHILE NOT Eof(f) do begin
readln(f,a);
b:=a;
read(f,a);//В одном случае read по моему здесь
If a=b then writeln(e,b)
else begin
writeln(e,b);
writeln(e,a);
end;
END;
close(f);
close(e);
writeln('Finished!');
readln;
end.

нет, так не работает - в выходном файле все строчки как и в входном, только разделены пустыми строками