исправьте программу

var
 f : array [1..15] of string;
 a,b : array [1..15] of longint;
 max,n,i,k,m : longint;
begin
 assign(output,'shpioni.out');
 rewrite(output);
 for i:=1 to 15 do
 begin
  readln(f[i]);
  readln(a[i],b[i]);
  if b[i]>max then
  begin
   max:=b[i];
   m:=i;
  end;
 end;
 writeln(f[m],' krut');
 close(output);
end.
 
 
 
 
 
 
Б:
Код Pascal
 
 
var
 f : array [1..15] of string;
 a,b : array [1..15] of longint;
 max,n,i,k,m : longint;
begin
 assign(input,'shpioni.in');
 reset(input);
 for i:=1 to 15 do
 begin
  readln(f[i]);
  readln(a[i],b[i]);
  if b[i]>max then
  begin
   max:=b[i];
   m:=i;
  end;
 end;
 writeln(f[m],' krut');
 close(input);
end.

type spion=record
                prz:string[20];
                doc:word;
                orz:byte;
               end;
       fail=file of spion;

uses crt;
const n=15;
type spion=record
                prz:string[20];
                doc:byte;
                orz:byte;
               end;
       fail=file of spion;
var sp:spion;
    i:byte;
    f:fail;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите ',n,' записей:');
for i:=1 to n do
 begin
  writeln('Шпион ',i);
  with sp do
   begin
    write(' прозвище: ');readln(prz);
    write(' количество документов:');readln(doc);
    write(' количество оружия:');readln(orz);
    write(f,sp);
   end;
 end;
close(f);
end.

uses crt;
type spion=record
                prz:string[20];
                doc:byte;
                orz:byte;
               end;
       fail=file of spion;
var sp:spion;
    mx:byte;
    pr:string[20];
    f:fail;
    name:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(f,sp);
mx:=sp.orz;
pr:=sp.prz;
while not eof(f) do
 begin
  read(f,sp);
  if sp.orz>mx then
   begin
    mx:=sp.orz;
    pr:=sp.prz;
   end;
 end;
close(f);
write('Самый вооруженный ',pr);
readln
end.