Сформировать 4 и 5 столбцы матрицы А(3, 3). Исправить ошибки в программе

program xil;
type vector=array [1..5] of real;
function scal (n:integer; var a,b:vector):real;
var i:integer;
s:real;
begin
s:=0;
for i:=1 to n do s:=s+a[i]*b[i];
scal:=s;
end;
var a : array [1..4,1..4] of real;
b : array [1..3,1..3] of real;
i: integer;
j: integer;
K:integer;
z,m:vector;
s:real;
begin
writeln ('vvedite:');
for i:=1 to 4 do
for j:=1 to 4 do
read (a[i,j]);
for i:=1 to 3 do
for j:=1 to 3 do
begin
k:=k+1;
m[k]:=a[i,j]+a[i+1,j+1];
end;
writeln ('vvedite:');
for i:=1 to 3 do
for j:=1 to 3 do
readln (b[i,j]);
for i:=1 to 2 do
for j:=1 to 2 do
begin
k:=k+1;
z[k]:=a[i,j]+a[i+1,j+1];
end;
s:=scal(5,m,z);
writeln ('S=',s:10:3);
end.

program Project1;
uses
  clrscr;
const
  n = 4;
type
  TMass = array[0..n, 0..n-2] of Real;
var
  i, j : Byte;
  A, B : TMass;
procedure out_put(str : Char; q : TMass; k : Byte; asdf : Boolean);
var
  i, j : Byte;
begin
  if not(asdf)
  then
    Writeln('Ishodnyj massiv ', str)
  else
    Writeln('Poluchennyj massiv ', str);
  for i := 0 to k do
    for j := 0 to n-2 do
      Write(str, '[', i+1, '][', j+1, ']=', q[i, j]:4:2, '  ');
  Writeln; Writeln;
end;
function summa(a, b : TMass) : TMass;
var
  i, j : Byte;
begin
  for i := 0 to n-2 do
    for j := 0 to n-2 do
    begin
      a[n-1, j] := a[n-1, j] + b[i, j];
    end;
  summa := a;
end;
function srd(a : TMass) : TMass;
var
  i : Byte;
begin
  srd := a;
  for i := 0 to n-2 do
    srd[n, i] := a[n-1, i] / 3;
end;
begin
  Clrscr;
  Randomize;
  for i := 0 to n-2 do
    for j := 0 to n-2 do
    begin
      a[i, j] := Random(10);
      b[i, j] := Random(13);
    end;
  for i := n-1 to n do
    for j := 0 to n-2 do
      a[i, j] := 0;
  out_put('a', a, n-2, False);
  out_put('b', b, n-2, False);
  a := summa(a, b);
  a := srd(a);
  out_put('a', a, n, True);
  Readln;
end.