Не могу исправить ошибки в задаче

program p1;
uses crt;
type
matrica=array[1..50,1..50]of real;
vector=array[1..50]of real;
var
 j,i,n,r,kol:integer;
 M:matrica;
 A:matrica;
 z:vector;
 otv:char;
begin
   while true do
 begin
 textbackground(16);
      textcolor(14);
       clrscr;
writeln('Программа построения вектораБсостоящего из полож элеметов матрицы');
writeln('Ввести размерность матрицы');
readln(n);
writeln('Ввести кол-во столбцов');
readln(r);
writeln('Исх матрица A');
for i:=1 to n do
for j:=1 to n do
begin
write('M[',I:2,',',j:2,']=>');
readln(M[i,j]);
end;
 writeln('Исходная матрица М');
 for i:=1 to n do
 begin
 for j:=1 to n do
  write(M[i,j]:5:2,' ');
  writeln;
  end;
  for i:=1 to n do
  begin
  i:=1;
  for i:=1 to 5 do
  for j:=1 to 5 do
  end;
begin
M[i,j]:=5-random(10);
if M[i,j]>0 then
z[i]:=M[i,j];
end;
 writeln(' ':5,Вектор z');
 write('Ввести кол-во элементов в матрице');
 readln(kol);
 for i:=1 to r do
 if(i mod kol)<>0 then
 write(z[i]:5:2)
 else
  writeln(z[i]:5:2);
  writeln('будете вводить (Y/N)');
 readln(otv);
  if(otv='N')or(otv='n')then break
  end
  end.

program p1;
uses crt;
const n=5;
var a:array[1..n,1..n] of real;
    z:array[1..n*n] of real;
    m,j,i:integer;
begin
textbackground(16);
textcolor(14);
clrscr;
writeln('Программа построения вектора, состоящего из полож элеметов матрицы');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
  for i:=1 to n do
  begin
  i:=1;
  for i:=1 to 5 do
  for j:=1 to 5 do
  end;
m:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>0 then
 begin
  m:=m+1;
  z[m]:=a[i,j];
 end;
writeln('Вектор z');
for i:=1 to m do
write(z[i]:0:2,' ');
end.