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

[Alexa911]

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

[Федосеев Павел]

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

Кроме ломания, должны существовать какие либо следы научной деятельности. Например, наброски кода.

[bel100]

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

Кроме ломания, должны существовать какие либо следы научной деятельности. Например, наброски кода.

var s1,s2,sn:string;
a,b,i,n:integer;
s:array[1..255] of integer;
input,output:text;
begin
assign(input,'input.txt');
reset(input);
n:=1;
for i:=1 to n do
n:=n+1;
writeln(n);
readln(input,s1);
readln(input,s2);
if n mod 2 = 0 then writeln('Строка 1 чётная');
if n mod 2 = 1 then writeln('Строка 1 не чётная');
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');
end.
То же не получается полностью выполнить условия задачи:
1) Как пронумеровать и подсчитать количество строк в тексте?
2) Как разбить строки на пары?
Заранее благодарен тому кто сможет разжевать!