работа с векторами и матрицами. помогите пожалуйста решить задачу.

[владимир/к.]

помогите решить пожалуйста, если не трудно... задача во вложениях.

[capta1n]

program capta1n;
label bye;
const
 n = 5;
var
 a,b : array [1..n,1..n] of real;
 i,k : 1..n;
begin

  for i:=1 to n do
  begin
    for k:=1 to n do
    begin
      a[i,k]:=random(3)+1;
      write (a[i,k]:0:1,'|')
    end;
    writeln
  end;
  writeln;
  for i:=1 to n do
  begin
    for k:=1 to n do
    begin
      if a[i,k]=0 then
      begin
        writeln; writeln;
        writeln ('A[',i,',',k,']=0! Ne dopustimo delenie na 0!');
        goto bye
      end;
      b[i,k]:=1/a[i,k];
      write (b[i,k]:0:1,'|')
    end;
    writeln
  end;
  writeln;
bye: readln;
end.