Вылетает программа

[Marijuana008]

Помогите, уже не знаю что делать, при запуске вылетает черное окно и висит пустым (закрыть можно только при помощи cntrl+f2. Указывает на строчку №60

program Laba1;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows,Math;

Type arr2 = array of array [0..2] of integer;

    function check(a: array of string; s: string; var kil: integer): boolean;
    var Flag: boolean;
       i: integer;
    begin
      Flag := false;
      for i := 0 to high(a) do
      if  a[i] = s then
       begin
       Flag:=true;
       kil:=i;
       end;
      result:=Flag;
    end;
    procedure swap(var a,b: integer);
    var k:integer;
    begin
      k:= a;
      a:= b;
      b:= k;
    end;
    procedure swapArr(var a1,a2: array of integer);
    var i:Integer;
    begin
     for i:=0 to 2 do
     swap(a1[i],a2[i]);
    end;
    procedure sort(var a1:array of string;var a2:arr2);
    var j,i, p, f, v:integer;
    k:string;                 
    begin
    for v:=2 downto 0 do
     for i:=0 to high(a1)-1 do
      for j:=0 to high(a1)-i-1 do
      if a2[j,v]<a2[j+1,v] then
      begin
        for p:=0 to 2 do
        begin
         f := a2[j,p];
         a2[j,p] := a2[j+1,p];
         a2[j+1,p] := f;
        end;
       k := a1[j];
       a1[j] := a1[j+1];
       a1[j+1] := k;
      end;
    end;
var a1: array of string;
    a2: arr2;
    s: string;
    i,kil,menu,m: integer;
begin
 SetConsoleOutputCp(1251);
 repeat
  begin
   Writeln ('1:Äîáàâòå èíôîðìàöèþ');
   Writeln ('2:Ïîêàçàòü èíôîðìàöèþ î ñòðàíå');
   Writeln ('3:Ïîêàçàòü âñþ òàáëèöó ');
   Writeln ('4:Âûõîä');
   readln(menu);
   case menu of
   1:begin
      Writeln('Äîáàâòå ñòðàíó');
      Readln(s);
      if check(a1,s,kil) then
      begin
         Writeln('Ââåäèòå ìåäàëè:');
         for i:=0 to 2 do
         begin

           Readln(m);
           a2[kil, i]:= a2[kil, i] + m;
         end;
      end
      else
      begin
       SetLength(a1, length(a1) + 1);
       A1[high(a1)] := s;
       SetLength(a2, length(a2) + 1);
       Writeln('Ââåäèòå ìåäàëè');
       for i:=0 to 2 do
        Readln(a2[ high(a1), i]);
      end;
      sort(a1,a2);
     end;
   2:begin
       Writeln('Ââåäèòå ñòðàíó');
       Readln(s);
       if check(a1,s,kil) then
        begin
         Writeln(kil+1,'.',a1[kil]:3 , a2[kil,0]:3, a2[kil,1]:3, a2[kil,2]:3);
        end
       else
       Writeln('Ýòà ñòðàíà óæå åñòü â ñïèñêå');
       writeln;
     end;
   3:begin
      for i:=0 to high(a1)do
       Writeln(i+1,'.',a1[i]:3,a2[i,0]:3,a2[i,1]:3,a2[i,2]:3);
       writeln;
     end;
   end;
  end;
 until menu = 4;
 Readln;
end.

[Marijuana008]

Сообщение от Marijuana008

begin
SetConsoleOutputCp(1251);

указывает на строчку begin

[min@y™]

https://rutube.ru/video/private/5217...d3efj_ueI3NUeQ

[zvygin1964]

http://coub.com/view/skzad