Visual Basic на Pascal

Program Ugolki;
uses crt;
const m=5;
var i,j,k,n:longint;
BEGIN
     clrscr;
     n:=m;
     for k:=1 to m do
     begin
          i:=k;
          for j:=1 to n do writeln(i,j);
 
          j:=n;
          for i:=k+1 to m do writeln(i,j);
          n:=n-1;
     end;
     readkey;
END.

uses crt;
const n=20;
var a:array[1..n,1..n] of integer;
    b:array[1..n*n] of integer;
    m,i,j,x,y,u,k,z:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы m=');
readln(m);
until m in [1..n];
writeln('Матрица А:');
for i:=1 to m do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=(i-1)*m+j;//это для наглядности, можно поменять
    write(a[i,j]:4);
   end;
  writeln;
 end;
u:=1;//номер угла
x:=u;//начало движения вправо
y:=u;//вниз
z:=1;//начало массива
while z<=m*m do
 begin
  b[z]:=a[y,x];
  x:=x+1;//идем в право
  z:=z+1;
  if x>m-u+1 then//дошли до конца еще не выведенной части
   begin
    x:=m-u+1;//по горизонтали в новый угол
    y:=y+1;//идем вниз
   end;
  if y>m then//дошли до последней строки
   begin
    u:=u+1;//новый угол
    y:=u;//столбец
    x:=1;//строка
   end;
 end;
writeln('Результат:');
for i:=1 to m*m do
write(b[i],' ');
readln
end.