Нужно отладить программу, есть ошибки не могу их понять и исправить

Program sort;
uses crt;
const Nmax=100;
type Rec=Record
    Name: String[15];
    Area: Integer;
  kl: integer;
    end;
    Table=array[1..Nmax] of Rec;
var T: Table;
        n: integer;
        ch: byte;
        kb,kz,kv: integer;
 
procedure InTab (var T: Table; var n: integer);
var ch: char;
        fname: string;
        i: integer;
        f: file of rec;
        cod: byte;
 
begin
    ClrScr;
    n:=0;
    repeat
        n:=n+1;
        WriteLn('Введите,n,'-ю запись таблицы');
        WriteLn("Государство: ');
        ReadLn(t[n].name);
        WriteLn("Площадь: ');
        ReadLn(t[n].area);
        WriteLn('Продолжить ввод? y/n:');
        ch:=ReadKey;
    until ch in ['n','N','t','T'];
    Writeln('Сохранить выведенные данные в файл? y/n');
    ch:=ReadKey;
    if ch in ['n','N','t','T'] then exit;
    Writeln('Введите имя файла: ');
    ReadLn(fname);
    Assign(f,fname);
{$I-}
    Rewrite(f);
{$I+}
    cod:=IOResult;
    if cod=0 then
        begin
            for i:=1 to n do
                write(f,t[i]);
            close(f);
        end
        else
            begin
                writeln('Ошибка при создании файла*' );
                ReadKey;
            end;
end;
 
procedure InFileTab (var T: Table; var n: integer);
var cod: byte;
        f: file of rec;
        fname: string;
        ch: char;
begin
    ClrScr;
    repeat
    Writeln('‚Введите имя файла');
    Readln(fname);
    Assign(f,fname);
{$I-}
    Reset(f);
{$I+}
    cod:=IOResult;
    if cod<>0 then
        begin
            Writeln('не могу найти файл, fname);
            Writeln('Продолжить работу y/n');
            ch:=ReadKey;
            if ch in ['n','N','t','T'] then exit;
        end;
    until cod=0;
    n:=0;
    while not eof(f) do
    begin
        n:=n+1;
        read(f,T[n]);
    end;
    close(f);
    WriteLn('Таблица загружена из файла,fname);
    Write('Нажмите любую клавишу...');
    ReadKey;
end;
 
procedure ShowTab(var T: Table; n: integer);
var i:integer;
begin
    ClrScr;
    WriteLn("Запись таблицы");
    WriteLn('--------------T----------');
    WriteLn('| Город | Площадь |');
    WriteLn('+-----------------------+');
    for i:= 1 to n do
        WriteLn('|',T[i].Name:12,' |',T[i].Area:9,' |');
    WriteLn('L------------+----------');
    WriteLn("Нажмите любую клавишу");
    ReadKey;
end;
 
 
procedure PrintTab (var T:Table; n,i,imin:integer);
var k:integer;
begin
    for k:=1 to n do
    begin
        if k=i then
            textattr:=red*16+white
        else
            if k=imin then
                textattr:=blue*16+white
            else
                textattr:=black*16+white;
            write(t[k].Area);
            textattr:=black*16+white;
            write(' ');
    end;
    writeln;
end;
 
procedure PrintBubble (var T:Table; n,k: integer);
var i:integer;
begin
    for i:=1 to n do
    begin
        if (i>=k) then
            textattr:=red*16+white
        else
            textattr:=black*16+white;
      write(T[i].Area);
      textattr:=black*16+white;
      write(' ');
    end;
    writeln;
end;
 
procedure bubble (var T: Table;var kb,n: integer);
var i,k,m: integer;
        pr: boolean;
        zap: rec;
begin
    kb:=0;
    k:=n-1;
    pr:=true;
    m:=0;
    while(k>=1) and pr do
    begin
        pr:=false;
        for i:=1 to k do
            begin
            inc(kb);
            if T[i].Area>T[i+1].Area then
                begin
            {PrintBubble(T,n,k);}
                    zap:=T[i];
                    T[i]:=T[i+1];
                    T[i+1]:=zap;
                    m:=i;
                    pr:=true;
                end;
            end;
      PrintBubble(T,n,k);
      K:=m-1;
      ReadKey;
    end;
end;
 
 
procedure VST(var T:table; n:integer);
var i,j: integer;
        rab: rec;
begin
    for i:=2 to n do
  begin
  inc(kv);
        if T[i].Area<T[i-1].Area then
            begin
            rab:=T[i];
            j:=i-1;
            while (j>0) and (rab.Area<T[j].Area) do
                begin
                T[j+1]:=T[j];
                j:=j-1;
                end;
            T[j+1]:=rab;
            end;
      end;
end;
 
procedure SortTab (var T:Table; n:integer);
var i, imin,j:integer;
        tmp:rec;
begin
    ClrScr;
    Writeln("Шаги сортировки (выделы ключи переставляемых записей)");
    for i:=1 to n-1 do
        begin
            imin:=i;
            for j:=i+1 to n do
      begin
      inc(kz);
                if t[j].Area<t[imin].Area then
                    imin:=j;
                if imin<>i then
                    begin
                        PrintTab (T,n,i,imin);
                        ReadKey;
                        tmp:=t[i];
                        t[i]:=t[imin];
                        t[imin]:=tmp;
                    end;
          end;
        end;
end;
 
begin
    n:=0;
repeat
    ClrScr;
    Writeln('1. "Ввод данных с клавиатуры");
    Writeln('2. Загрузить таблицу из файла");
    Writeln('3. "Вывести результат сортировки");
    Writeln('4. Сортировка Линейного выбора);
    Writeln('5. "Сортировка Пузырьком");
    Writeln('6. "Сортировка Вставкой прямым включением");
    Writeln("7. сравнение сортировок");
    WriteLn('---------------------------------------');
    Writeln("0. выход");
 
    Writeln;
    Write("ваш выбор: ");
    ReadLn(ch);
 
Case ch of
    1: InTab(T,n);
    2: InFileTab (T,n);
    3: if n<>0 then
        ShowTab(T,n)
        else
            begin
                Writeln("таблица не найдена");
                ReadKey;
            end;
4: if n<>0 then
    SortTab(T,n)
    else
        begin
            Writeln("таблица не найдена");
            ReadKey;
        end;
5: if n<>0 then
    bubble(T,n,kz)
    else
        begin
            Writeln("таблица не найдена");
            ReadKey;
        end;
6: if n<>0 then
    VST(T,n)
    else
        begin
            Writeln("таблица не найдена");
            ReadKey;
        end;
7: if n<>0 then
        begin
            {bubble(T,n,kb)}
            writeln('bubble:',kb);
      writeln('vstavka:',kv);
      writeln('lineuna:',kz);
            readln;
        end;
end;
until ch=0;
end.