Паскаль, работа с текстовыми файлами.

[asphyxiat]

Задача:Посчитать количество строк, находящихся между строками максимальной и минимальной длины текстового файла. Вывести эти строки на экран в обратном порядке.
Получилось найти строку с минимальным количеством символов и строку с максимальным количеством символов, а вот как выполнить остальные условия задачи ума не приложу. Решите плиз.

Program text1;
uses crt;
var f:text;
s:string;
a,k,i,max,min,maxs,mins,l,m,b:integer;
begin
 clrscr;
 assign (f,'C:\pascal.txt');
 reset(f);
max:=0;
min:=256;
while not Eof(f) do
 begin
 readln(f,s);
 for i:=1 to length(s) do
 begin
 b:=b+1;{счётчик букв}
 end;
 k:=k+1;{счётчик строк}
 if b>max then begin max:=b; maxs:=k; end;{*нахождение строки с max количеством букв}
 if b<min then begin min:=b; mins:=k; end;{нахождение строки с min количеством букв}
 b:=0;
 end;
writeln('*nomer max stroki',maxs);
writeln('*nomer min stroki', mins);
close(f);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1)

 for i:=1 to length(s) do  b:=b+1;{счётчик букв}

это не счётчик букв, а счётчик символов.
И, если Вы уж используете функцию получения длины строки,
так к чему этот безумный цикл?!!
достаточно так:

b := Length(s);

2) по хорошему, все переменные в начале программы надо иницилизировать.
я понимаю, что компилятор Паскаля уже сделал так, что в переменной K в начале выполнения занесён ноль, но, хороший программист должен заботится об этом сам.
т.е. перед циклом желательно

   k:=0;

3) теперь по сути того, что Вам нужно доделать...
Нужно создать в памяти динамическую структуру (хоть тот же двухсвязный список).
Открыть файл на повторное чтение.
И во втором цикле занести в эту структуру все строки с номерами от mins до maxs
(или от maxs до mins - в зависимости от того, какой индекс больше)
Потом в цикле вывести строки из этой структуры в обратном порядке.
Всё.

[asphyxiat]

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

 for i:=1 to k do
             begin
               readln(f,s);
               if (i>mins) and (i<maxs) then writeln(s);
              end;

если я задаю условие

 i:=k downto 1

для чтения строк в обратном порядке, то получается фигня какая то или я чтото неправильно делаю. Объясни пожалуйста или напиши код я посмотрю в чём моя ошибка.