Из текстового файла удалить строки, состоящие из одинаковых литер Опции

[Agerest]

Дан текстовый файл G. Откорректировать его, удаляя строки, состоящие из одинаковых литер. Напечатать номера удаляемых строк. Помогите пожалуйста, заранее спасибо)
Вроде понимаю паскаль и текстовые файлы в том числе, но справиться с этой задачей не могу.

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

Раз понимаете, сделайте часть программы с чтением файла и выводом на экран номера строки и самой строки без какой-либо обработки.
Это будет первый этап. Следующий этап - я помогу с удалением строк.

[Agerest]

Раз понимаете, сделайте часть программы с чтением файла и выводом на экран номера строки и самой строки без какой-либо обработки.
Это будет первый этап. Следующий этап - я помогу с удалением строк.

Спасибо большое, что ответили. Вот я сделал эту часть программы:

Код

Var F: Text;
      l, i: integer;
      s:string;
begin
  Assign ( F, 'F:/text.txt' );
  reset(f); l:=0;
  while not eof(f) do begin
    l:=l+1;
    while not eoln(f) do begin
      read(f,s);
      write('Строка №',l,': '); writeln(s);
      readln(f);
      l:=l+1;
    end;
  close(f); readln;
  end;
end.