Массивы и матрицы

Program massiv;
uses crt;
label 3, 4, 5, 6;
var n,i,k,m, min, nmin, q: integer;
    a: array [1..100] of integer;
    r: array [1..100] of integer;
begin
    clrscr;
    writeln;
    writeln('Введите количество элементов в массиве от 2 до 100');
    readln (n);
    clrscr;
    q:=0;
    writeln;
    for i:=1 to n do
                   begin
                   a[i]:=random(100);
                   write(a[i],’ ‘);
                   end;
    writeln;
    writeln('Ведите число, которое нужно найти от 0 до 99');
    readln(m);
    k:=0;
    writeln;
    for i:=1 to n do
                   begin
                       if m=a[i] then
                                    begin
                                        k:=k+1;
                                        write(‘номер=’,i,’ ‘);
                                    end;
                   end;
    writeln;
    {writeln('Для продолжения работы нажмите Enter');
    readln;}
    if k=0 then goto 3
           else goto 4;
    3: writeln('Данное число отсутствует в массиве');
       writeln;
       writeln('Найти ближайшее меньшее-1');
       writeln('Выход из программы-2');
       readln(q);
       writeln;
       case q of 1: goto 5;
                 2: goto 6;
                 end;
       5: for i:=1 to n do
                      r[i]:=m-a[i];
       min:=r[1];
       nmin:=1;
       for i:=2 to n do
                      begin
                          if (r[i]>0) and (r[i]<min) then
                                                            begin
                                                                 min:=r[i];
                                                                 nmin:=i;
                                                            end;
                      end;
       writeln('Ближайшее меньшее число=',a[nmin]);
       writeln;
       writeln('Для продолжения работы нажмите Enter');
       readln;
       goto 6;
    4: writeln('Данное число встречается в массиве ',k,' раз');
       writeln;
       writeln('Для продолжения работы нажмите Enter');
       readln;
       goto 6;
    6: clrscr;
       writeln;
       writeln('Расчет окончен, нажмите Enter');
       readln;
end.