Отладить программу. Для повторения работы программы должен быть организован цикл while или цикл repeat

USES CRT;
LABEL
1;
VAR
B:ARRAY [1..50, 1..50] OF REAL;
MAX:REAL;
NST,NSTR,N,M,I,J:INTEGER;
OTV:CHAR;
BEGIN
1:CLRSCR;
WRITELN ('Введите количество строк матрицы');
READLN (N);
WRITELN ('Введите количество столбцов матрицы');
READLN (M);
(*ввод матрицы*)
WRITELN ('Введите матрицу В');
FOR I:=1 TO N DO
FOR J:=1 TO M DO
BEGIN
WRITE ('B[',I:2,',',J:2,']=>');
READLN (B[I,J])
END;
(*вывод матрицы*)
WRITELN ('Исходная матрица В');
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO M DO
WRITE (B[I, J]:5:2,' _');
WRITELN
END;
MAX:=B[1,1];
NSTR:=1;
NST:=1;
FOR I:=1 TO N DO
FOR J:=1 TO M DO
IF MAX<=B[I,J]
THEN BEGIN
MAX:=B[I,J];
NSTR:=I;
NST:=J
END;
WRITELN ('Максимальный элемент матрицы ',MAX:5:2);
WRITELN ('Номер строки',NSTR:2);
WRITELN ('Номер столбца',NST:2);
WRITELN ('Будете вводить новые данные (Y/N)?');
READLN (OTV);
IF (OTV='Y') OR (OTV='y')
THEN GOTO 1
END.

program bbb;
 
uses
  CRT;
 
var
  b: array [1..50, 1..50] of real;
  max: real;
  nst, nstr, n, m, i, j: integer;
  otv: char;
begin
  repeat
    Clrscr;
    Write ('Введите количество строк матрицы: ');
    Readln(n);
    Write ('Введите количество столбцов матрицы: ');
    Readln(m);
    {ввод матрицы}
    Writeln ('Введите матрицу В: ');
    for i:= 1 to n do
      for j:= 1 to m do
        begin
          Write ('B[',i:2,',',j:2,']=> ');
          Readln (b[i,j])
        end;
 
    {вывод матрицы}
     Writeln ('Исходная матрица В: ');
     for i:= 1 to n do
       begin
         for j:= 1 to m do
           Write (b[i, j]:6:2,' _');
         Writeln;
       end;
    max:= b[1,1];
    nstr:= 1;
    nst:= 1;
    for i:= 1 to n do
      for j:= 1 to m do
        if max <= b[i,j]
        then
          begin
            max:= b[i,j];
            nstr:= i;
            nst:= j;
          end;
    Writeln ('Максимальный элемент матрицы: ',max:5:2);
    Writeln ('Номер строки:',nstr:2);
    Writeln ('Номер столбца:',nst:2);
    Writeln ('Будете вводить новые данные (Y/N)?');
    Readln (otv);
  until not((otv = 'Y') or (otv = 'y'));
end.