таблица футбольного чемпионата

uses crt;
var h:text;
    a:array[1..20,1..20] of byte;
    n,i,j,k,kp,kv,f:byte;
    nf,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(h,nf);
{$I-} reset(h);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
read(h,n);{читаем первое число-размер таблицы}
writeln('Таблица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(h,a[i,j]);{читаем таблицу}
    write(a[i,j]:3);{выводим на экран}
   end;
  writeln;
 end;
writeln;
close(h);
writeln('Команды без поражений:');
k:=0;f:=0;
for i:=1 to n do
  begin
   kv:=0;kp:=0;
   for j:=1 to n do
    begin
     if (a[i,j]=0)and(i<>j)then kp:=kp+1;{количество поражений}
     if a[i,j]=1 then kv:=kv+1;{количество выигрышей}
    end;
   if kp=0 then{если нет поражений}
    begin
     writeln(' команда ',i);{выводим}
     f:=1;{фиксируем}
    end;
   if kv>kp then k:=k+1;{если побед больше, считаем}
  end;
writeln;
if f=0 then writeln('Команд без поражений нет!');
writeln('Количество команд, имеющих побед больше чем поражений=',k);
readln
end.