Delphi--> TurboPascal

[Анюта)]

Пожалуйста, помогите перевести в TP
[Delphi]
type rat= record
fam:string[20];
r:integer;
end;
var s:string;
fn1,fn2:string;
fn3:string;
f1:file of rat;
f3:TextFile;
f2:TextFile;
i,n:Integer;
p1:rat;
a:array[1..100] of rat;

procedure ADDR;
var p:rat;
begin
Writeln('input LastName');
Readln(p.fam);
Writeln('input points');
Readln(p.r);
write(f1,p);

end;
procedure ADDNO;
var s1:string;
begin
Writeln('input LastName');
Readln(s1);
writeln(f2,s1);
end;

begin
Writeln('input number of politics');
Readln(n);
Writeln('input filename of rating');
Readln(fn1);
AssignFile(f1,fn1);
Rewrite(f1);
for i:=1 to n do
ADDR;
CloseFile(f1);
Writeln('input number of new opros');
Readln(n);
Writeln('input filename of new opros');
Readln(fn2);
AssignFile(f2,fn2);
Rewrite(f2);
for i:=1 to n do
ADDNO;
CloseFile(f2);
Reset(f1);
i:=0;
while not eof (f1) do begin
Read(f1,p1);
i:=i+1;
a[i]:=p1;
end;
CloseFile(f1);
Reset(f2);
while not Eof(f2) do begin
Readln(f2,s);
for n:=1 to i do
if s=a[n].fam then a[n].r:=a[n].r+1;
end;
CloseFile(f2);
Writeln('input filename for report');
Readln(fn3);
AssignFile(f3,fn3);
Rewrite(f3);
for n:=1 to i do
Writeln(f3,a[n].fam,'----',a[n].r);
CloseFile(f3);
end.

[Олвин]

А тут переводить ничего и не надо! Только AssignFile заменить на Assign и CloseFile на Close.

[Анюта)]

ВСЕГО ТО)) СПАСИБО!!!!!

[Serge_Bliznykov]

ещё надо TextFile заменить на Text