Как в паскале считать из файла строки

assign(f,'input.txt');
reset(f);
 while not eof(f) do
   begin
    i:=1;
      while not eoln(f) do
         begin
           read(f,s[i]);
           inc(i);
         end;
      {потом обрабатуешь эту строку}
   end;

uses crt;
var s: string; f: text;
begin
clrscr;
assign(f,'filenew.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
s:='';
end;
end.

uses crt;
const n=2;
type a=record
 fam: string;
 num: real;
end;
var mas: array[1..n] of a;
    i: byte; f: file of a;
begin
 clrscr;
 writeln('ввод исходных данных: ');
 for i:=1 to n do
  begin
   write('введите фамилию ',i,'-ого представителя: ');
   readln(mas[i].fam);
   write('введите значение поля num: ');
   readln(mas[i].num);
  end;
 assign(f,'fileread.bin');
 rewrite(f);
 for i:=1 to n do
  write(f,mas[i]);
 close(f);
 writeln('запись в файл прошла успешно');
 writeln('для продолжения нажмите любую клавишу...');
 readkey;
end.

uses crt;
const n=2;
type a=record
 fam: string;
 num: real;
end;
var mas: array[1..n] of a;
    i: byte; f: file of a;
begin
 clrscr;
 assign(f,'fileread.bin');
 reset(f);
 writeln('данные, содержащиеся в файле: ');
 for i:=1 to n do
  begin
   read(f,mas[i]);
   writeln(mas[i].fam,mas[i].num:6:1)
  end;
 close(f);
end.