Нет перегруженной подпрограммы с такими типами параметров

program pro;
uses crt;
type man = record
im:string[15];
fam:string[20];
data:string[20];
end;
var
f:text;
 a:array[1..50] of man;
 n,i:integer;  s:string;
begin
 writeln('Введите кол-во служащих');
 readln(n);
Assign(f, 'D:\1234.txt'); rewrite(f);
for i:=1 to n do
 begin 
  writeln(f,'Служивец №.');
  writeln('Фамилия');
  readln(a[i].fam);
  writeln(f,a[i].fam);
  writeln('Имя');
  readln(a[i].im);
  writeln(f,a[i].im);
  writeln('Дата');
  readln(a[i].data);
  writeln(f,a[i].data);
 end;
 for i := 1 to n do
        if (a[i].data = 1990) then
           Inc(count);
   close(f);
end.

type man = record
im:string[15];
fam:string[20];
data:string[20];
end;
var
f:text;
 a:array[1..50] of man;
 co,n,i:integer;  
 begin
 writeln('Введите кол-во служащих');
 readln(n);
Assign(f, 'D:\1234.txt'); rewrite(f);
for i:=1 to n do
 begin 
  writeln(f,'Служивец №.');
  writeln('Фамилия');
  readln(a[i].fam);
  writeln(f,a[i].fam);
  writeln('Имя');
  readln(a[i].im);
  writeln(f,a[i].im);
  writeln('Дата');
  readln(a[i].data);
  writeln(f,a[i].data);
 end;
 reset(f);
 co:=0;
 While Not(Eof(f)) Do
  begin
     if (a[i].data = 1990) then
           Inc(co);
           end;
   close(f);
end.

if a[i].data = '1990' then