Занесение из файла в структуру Опции

[-ZoLToN-]

Задание: Из файла занести в структуру данные о работниках и вывести данные о работниках с максимальной зарплатой.
Вот что я сделал:

Код

uses crt;
const
MaxSize=10;
Type
TDATA=record
name:string[80];
salary:real;
end;
var
  DATA:Array[1..maxsize] of TDATA;
  n,i,readresult:integer;
  maxsalary:real;
  f:text;
Function ReadData(var Rec:TDATA):integer;
Var
  s:string[80];
  p,q:integer;
  salaryS:string[10];
  errorcode:integer;
begin
readln(f,s);
if s='' then begin readdata:=-1; q:=-1; end;
p:=pos('',S);
if p=0 then begin Readdata:=1; q:=1; end
else begin
q:=0;
rec.Name:=copy(S,1,p-1);
salaryS:=copy(s,p+1,length(s)-p+1);
val(salaryS,Rec.Salary,Errorcode);
if errorcode<>0 then readdata:=1 else readdata:=0;
end;
end;



begin


clrscr;
assign(f,'LABA2.txt');
reset(f);
readln(f,n);
for i:=2 to n do begin
readresult:=ReadData(data[i]);
end;
maxsalary:=data[1].salary;
for i:=1 to n do begin
if data[i].salary>maxsalary then maxsalary:=data[i].salary;
end;
writeln('Max salary:',maxsalary,' rur.');
for i:=1 to n do begin
if data[i].salary=maxsalary then
writeln(i,') Familiya: ',data[i].name,'Oklad: ',data[i].salary);
end;
close(f);
readkey;
end.

Файл LABA2.txt вида:
8
Фамилия1 10000
Фамилия2 15000
Фамилия3 9000
Фамилия4 7000
Фамилия5 15000
Фамилия6 10000
Фамилия7 5000
Фамилия8 13000

Проблема в том что программа не может получить данные из файла. Используя режим просмотра стека я выяснил, что файл нормально открывается для чтения, но данные из этого файла не передаются в структуру.
Заранее благодарен за любую помощь или советы!