Нужна небольшая помощь с нажатием клавиши

metka:
                                  begin
                                  j:=readkey;
                                  if j=#49 then begin
                                  Randomize;
                                  m:=random(80);
                                  n:=random(25);
                                  h:=random(80);
                                  p:=random(25);  clrscr;
                                  Textbackground (6);Textcolor(1);Window (1+m,1+n,1+h,1+p );
                                  CLRSCR;GotoXY (1,1); writeln (min1); end
                                 else goto metka;

uses crt;
var i,a,b,c:integer;
    mn:array[1..3] of integer;
    s:char;
begin
writeln('Введите 5 целых чисел:');
read(a);
read(b);
read(c);
if a<b then mn[1]:=a else mn[1]:=b;
if c<mn[1] then mn[1]:=c;
if a>b then mn[3]:=a else mn[3]:=b;
if c>mn[3] then mn[3]:=c;
mn[2]:=a+b+c-mn[1]-mn[3];
for i:=4 to 5 do
 begin
  readln(a);
  if a<mn[1] then
   begin
    mn[3]:=mn[2];
    mn[2]:=mn[1];
    mn[1]:=a;
   end
  else if a<mn[2] then
   begin
    mn[3]:=mn[2];
    mn[2]:=a;
   end
  else if mn[3]<a then mn[3]:=a;
 end;
clrscr;
writeln('Для вывода результата последовательно нажмите клавиши 1 2 3:');
for i:=1 to 3 do
 begin
  read(s);
  case s of
  '1':begin
      window(5,10,10,15);
      textbackground(7);
      textcolor(1);
      clrscr;
      write(mn[i]);
      window(1,1,40,5);
      textbackground(15);
      textcolor(0);
      gotoXY(5,2);
      end;
  '2':begin
      window(15,10,20,15);
      textbackground(2);
      textcolor(14);
      clrscr;
      write(mn[i]);
      window(1,1,40,5);
      textbackground(15);
      textcolor(0);
      gotoXY(10,2);
      end;
  '3':begin
      window(25,10,30,15);
      textbackground(4);
      textcolor(10);
      clrscr;
      write(mn[i]);
      end;
   end;
 end;
end.