Вывести квадратную матрицу размерностью 3х3,4х4, 5х5 спиралью(правый винт);

program lab_10;
uses
    crt;
var
   n: array [1..5] of array [1..5] of integer;
   res: array [1..5] of array [1..5] of integer;
   i, j, k, t, m, pj, pi, s: integer;
begin
   clrscr;
   s:=0;
   write('Введите размерность матрицы (Не более 5): ');
   readln(t);
   m:=t;
   for i:=1 to t do
       for j:=1 to t do
       begin
            write('n[',i,',',j,']= ');
            readln(n[i,j]);
       end;
    for i:=1 to t do
   begin
       for j:=1 to t do
            write(' ',n[i,j]);
            writeln;
   end;
 
   i:=1;
   while i<=t do
   begin
        for j:=1 to t do
        begin
             if (n[i,j]>k) then
             begin
               k:=n[i,j];
               pj:=j;
             end;
        end;
        i:=i+1;
   end;
   writeln('Max: ', k);
 
  
   i:=1;
   while i<=t do
   begin
        for j:=1 to t do
        begin
             if (n[i,j]<k) then
             begin
               k:=n[i,j];
               pi:=i;
             end;
        end;
        i:=i+1;
   end;
   writeln('Min: ', k);
 
  
   
   for i:=pi to t do
    for j:= pj to t do
        begin
            s:=s+1;
            res[s]:=n[i]*n[j];
        end;
 
 for s:=1 to t do
    begin
    write('Результат: ', res[s]);
    end;
readkey;
end.

Program belko;
Uses Crt;
Var i, j, n, m, p:integer;
    a:array [1..20,1..20] of integer;
    b:array [1..400] of integer;
Procedure R(x,y,n,m,k:integer);
          begin
               if (m <> 0) and (n <> 0) then
                  case k of
                  1:begin
                         for i := x to x+m-1 do
                             begin
                                  b[p] := a[y,i];
                                  p := p+1;
                             end;
                         R(x+m-1,y+1,n-1,m,2)
                     end;
                  2:begin
                         for i := y to y+n-1 do
                             begin
                                  b[p] := a[i,x];
                                  inc(p)
                             end;
                         R(x-1,y+n-1,n,m-1,3)
                    end;
                  3:begin
                         for i := x downto x-m+1 do
                             begin
                                  b[p] := a[y,i];
                                  inc(p)
                             end;
                         R(x-m+1,y-1,n-1,m,4)
                    end;
                  4:begin
                         for i := y downto y-n+1 do
                             begin
                                  b[p] := a[i,x];
                                  inc(p)
                             end;
                         R(x+1,y-n+1,n,m-1,1)
                    end
                  end
          end;
Begin
     clrscr;
     writeln('          Laba 4');
     write('n = ');
     readln(n);
     write('m = ');
     readln(m);
     for i := 1 to n do
         for j := 1 to m do
             begin
                  write('a[',i,',',j,'] = ');
                  readln(a[i,j])
             end;
     p := 1;
     R(1,1,n,m,1);
     writeln;
     for i := 1 to n*m do
         writeln('b[',i,'] = ',b[i]);
     writeln;
     writeln('Press any key..');
     ReadKey;
End.