Помогите написать программу сравнения двух строк, Строки Опции

[Alexa911]

Помогите, пожалуйста, написать программу сравнения двух строк. Программа должна читать строки из файла и сравнивать нечетные и четные строки, которые следуют друг за другом. Я уже ломаю голову как оформить текст программы, но ничего не получается.

[bel100]

Спасибо за подсказку(по поводу цикла while), сравнивать нужно первую и вторую, третью и четвёртую и так далее пока не кончатся строки (общее количество неизвестно, зависит от документа( в идеале должен считать любой текстовый документ).
var s1,s2:string;
a,b,i,n:integer;
input,output:text;
begin
assign(input,'input.txt');
reset(input);
n:=0;
while not eof(input) do
for i:=1 to n do
readln(input,s2);
readln(input,s1);
a:=length(s1);
b:=length(s2);
close(input);
writeln(a);
writeln(b);
if a > b then writeln('Строка 1 больше строки 2');
if a < b then writeln('Строка 1 меньше строки 2');
if a = b then writeln('Строка 1 равна строке 2');
assign(output,'output.csv');
rewrite(output);

end.

Сообщение отредактировано: bel100 - 17.05.2017 0:34