По заданной квадратной матрице построить вектор

[artem66rus]

Есть задача:

По заданной квадратной матрице размером 10×10, построить вектор длиной 19, элементы которого - максимумы элементов, диагоналей, параллельных главной диагонали.

И решение в паскале. Помогите поажлуйста переделать программу в Delphi с формой.

const
  n=10;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n*2-1] of integer;
  i,j,max,m,k: integer;
begin
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
 
  m:=0;
  for k:=1-n to n-1 do
  begin
    inc(m);
    max:=-32768;
    for i:=1 to n do
    begin
      for j:=1 to n do
        if (j-i=k)and(a[i,j]>max)then max:=a[i,j];
      b[m]:=max;
    end;
  end;
 
  writeln('Полученный массив максимумов диагоналей:');
  for i:=1 to 2*n-1 do write(b[i],' ');
  readln;
end.