Как прочитать файл построчно?

procedure prn (var f : text); {вывод файла на экран}
var c : real;
begin
assign (f , 'C:\file.txt');
reset(f);
i:=0;
writeln('Файл содержит числа:');
while not eof(f) do
begin
readln(f , c); write (c : 8:3);
end;
writeln;
close(f);
end;

Program sum_file;
var f : text; n:integer;
procedure prn (var f : text); {вывод файла на экран}
var c : string;
begin
assign (f , 'C:\file.txt');
reset(f);
writeln('Файл содержит числа:');
while not eof(f) do
begin
readln(f , c); writeln (c );
end;
writeln;
close(f);
end;
 
procedure count (var f : text; n:integer); {подсчет }
type masstr=array [1..50] of string;
var c, k : real; str:masstr;j,i,s:integer;
begin
reset (f);
n:=0;
while not eof(f) do
begin
n:=n+1;
readln(f,str[n]);
end;
for j:=1 to n do
if length(str[j]) mod 2 = 0 then
while   i<length(str[j]) do
begin
s:=ord(str[j][i]);
str[j][i]:=str[j][i+1];
str[j][i+1]:=chr(s);
end
else
while   i<length(str[j])-1 do
begin
s:=ord(str[j][i]);
str[j][i]:=str[j][i+1];
str[j][i+1]:=chr(s);
end;
writeln(str[j]);
end;
begin {основная программа}
prn (f);
count (f,n);
end.

Program sum_file;  type masstr=array [1..50] of string;
var f : text; n:integer;
procedure prn (var f : text); {âûâîä ôàéëà íà ýêðàí}
var c : string;
begin
assign (f , 'C:\file.txt');
reset(f);
writeln('Ôàéë ñîäåðæèò ÷èñëà:');
while not eof(f) do
begin
readln(f , c); writeln (c );
end;
writeln;
close(f);
end;
 
procedure count (var f : text;str:masstr; n:integer ); {ïîäñ÷åò }
 
var c, k : real; j,i,s:integer;
begin
assign (f , 'C:\file.txt');
reset (f);
n:=0;
while not eof(f) do
begin
n:=n+1;
readln(f,str[n]);
end;
for j:=1 to n do
if length(str[j]) mod 2 = 0 then
while   i<length(str[j]) do
begin
s:=ord(str[j][i]);
str[j][i]:=str[j][i+1];
str[j][i+1]:=chr(s);
end
else
while   i<length(str[j])-1 do
begin
s:=ord(str[j][i]);
str[j][i]:=str[j][i+1];
str[j][i+1]:=chr(s);
end;
 
end;
begin {îñíîâíàÿ ïðîãðàììà}
prn (f);
count (f,str,n);
while j<=n do
writeln(str[j]);
end.