Не работает выход из программы

program lab1;
uses Crt;
type mnozh = Array[1..20] of Char; 
 
procedure Sortirovka(var A: mnozh; const elemA: Integer);
var countA,countB,k: Integer;
var sim: char;
begin
for countA:=1 to elemA-1 do 
begin
k:=countA;
for countB:=countA+1 to elemA do
if A[countB]<A[k] then k:=countB;
sim:=A[countA];
A[countA]:=A[k];
A[k]:=sim;
end;
end;
 
procedure Vvod(var A:mnozh; var elemA:integer);
var countA,countB:integer;
var usl:Boolean;
begin
elemA:= 0;
while not EoLn do
begin
elemA:=elemA+1;
Read(A[elemA]);
end;
Sortirovka(A,elemA);
usl:=False;
countA:=1;
while countA<elemA do 
begin
if A[countA]=A[countA+1] then begin
usl:=True;
elemA:=elemA-1;
for countB:=countA+1 to elemA do
A[countB]:=A[countB+1];
end
else
countA:=countA+1;
end;
WriteLn;
if usl then Writeln('Повторно введенные элементы УДАЛЕНЫ из множества');
readln;
end;
 
procedure Klavishi;
begin
ClrScr;
WriteLn('Меню работы с множествами:');
WriteLn;
WriteLn('1 - Введите элементы множества A');
WriteLn;
WriteLn('Esc - выход из программы');
WriteLn;
end;
 
var elemA,elemB,K:integer;
var A,B,C,D,E:mnozh;
var kl: Char;
begin
Klavishi;
elemA:=0;
elemB:=0;
repeat
kl:=ReadKey; 
 
case kl of
'1': begin
     ClrScr;
     WriteLn('Введите элементы множества A:');
     Vvod(A, elemA);
     WriteLn;
     WriteLn('Ввод данных окончен');
     WriteLn;
     end;
     end;
     writeln('Для возврата в основное меню нажмите ENTER ');
     Readln(); 
     Klavishi;
     until kl=#27;
end.

program lab1;
 
uses Crt;
type
  mnozh = Array[1..20] of Char;
 
procedure Sortirovka(var A: mnozh; const elemA: Integer);
var
  countA, countB, k: Integer;
var
  sim: char;
begin
  for countA := 1 to elemA - 1 do 
  begin
    k := countA;
    for countB := countA + 1 to elemA do
      if A[countB] < A[k] then k := countB;
    sim := A[countA];
    A[countA] := A[k];
    A[k] := sim;
  end;
end;
 
procedure Vvod(var A: mnozh; var elemA: integer);
var
  countA, countB: integer;
var
  usl: Boolean;
begin
  elemA := 0;
  while not EoLn do
  begin
    elemA := elemA + 1;
    Read(A[elemA]);
  end;
  Sortirovka(A, elemA);
  usl := False;
  countA := 1;
  while countA < elemA do 
  begin
    if A[countA] = A[countA + 1] then begin
      usl := True;
      elemA := elemA - 1;
      for countB := countA + 1 to elemA do
        A[countB] := A[countB + 1];
    end
    else
      countA := countA + 1;
  end;
  WriteLn;
  if usl then Writeln('Повторно введенные элементы УДАЛЕНЫ из множества');
  readln;
end;
 
procedure Klavishi;
begin
  ClrScr;
  WriteLn('Меню работы с множествами:');
  WriteLn;
  WriteLn('1 - Введите элементы множества A');
  WriteLn;
  WriteLn('Esc - выход из программы');
  WriteLn;
end;
 
var
  elemA, elemB, K: integer;
 
var
  A, B, C, D, E: mnozh;
 
var
  kl: Char;
 
begin
  Klavishi;
  elemA := 0;
  elemB := 0;
  repeat
    case kl of
      '1':
        begin
          ClrScr;
          WriteLn('Введите элементы множества A:');
          Vvod(A, elemA);
          WriteLn;
          WriteLn('Ввод данных окончен');
          WriteLn;
          writeln('Для возврата в основное меню нажмите ENTER ');
        end;
    end;
    kl := ReadKey;
    Klavishi;
  until kl = #27;
end.