Вывести двухмерный массив(25х30) по спирали с левого нижнего угла вправо — Pascal(Паскаль)

program lab3;
uses crt;
const m=80; n=24;
var i,j,k,t:integer;
begin
clrscr;
for k:=1 to n div 2 do
   begin
     for j:=k to m-k+1 do
       begin
         gotoxy(j,n-k+1); 
         delay(5000);
         write('*');
       end;
     for j:=n-k downto k do
       begin
         gotoxy(m-k+1,j);     
         delay(5000);
         write('*');
       end;
     for j:=m-k downto k do
       begin
         gotoxy(j,k);
         delay(5000);        
         write('*');
       end;
     for j:=k+1 to n-k do
       begin
         gotoxy(k,j);
         delay(5000);
         write('*');
       end;
     end;
readln;
end.