Строки.

[Paster Fob]

Вот нашёл похожую задачу и пример решения.

Напишите процедуру для вывода на экран n-й строки файла,где n – параметр процедуры. Воспользовавшись этой процедурой,напишите программу для распечатки строк файла в обратном порядке.Подсказка: предварительно посчитайте количество строк в файле.

var F_in: text; 
 K:integer; 
 
function CalcLines(var F: Text): integer; 
 var n: integer; 
 begin 
   n:=0; 
   Reset(F); 
   while not Eof(F) do begin 
     Readln(F); 
     n:= n+1; { количество строк } 
   end; 
   CalcLines:=n; 
 end; 

 procedure Expo(var F: Text; n: integer); 
 var S: string; 
 begin 
   Reset(F); 
   while (n>1) and not Eof(F) do begin 
     Readln(F); 
     n:= n-1; 
   end; 
   Readln(F, S); 
   Writeln(S); 
 end; 

 begin 
   Assign(F_in, 'Test.in'); 
   K:= CalcLines(F_in); { количество строк } 
   while K>0 do begin 
      Expo(F_in, K); 
      K:= K-1; 
   end; 
   Readln; 
 end.