Не получается сделать программу работоспособной. Скорее всего ошибка с Begin и End

type matr=array[1..7, 1..7] of real;
var a,b,c:matr;
i,j:integer;
procedure vvod(n,m:integer; z:char; var x:matr);
var i,j:integer;
begin
writeln('Input ',Z,' ',n,' x ',m);
for i:=1 to n do
for j:=1 to m do
x[i,j]:=random(n);
readln;
end;
Procedure Mini(n,m:integer; var x:matr);
var stroka,stolbec,i,j:integer; Mina:real;
begin
Mina:=X[1,1];
for i:=1 to n do
for j:=1 to m do
begin
If X[i,j]<Mina then
begin
Mina:=X[i,j];
stroka:=i;
stolbec:=j;
If j=m then
begin
Writeln('Index minimalnogo el-ta: Stroka' ' ',stroka,' ' 'stolbec' ' ',stolbec);
end;
begin
vvod(7,5,'A',a);
vvod(3,7,'B',b);
vvod(4,5,'C',c);
Mini(7,5,A);
Mini(3,7,B);
Mini(4,5,C);
begin
readln;
end;
end;
end;
end;
end;
end.

type
  matr = array [1..7, 1..7] of real;
var
  a,b,c:matr;
  i,j:integer;
procedure vvod(n,m:integer; z:char; var x:matr);
var i,j:integer;
begin
  writeln('Input ',Z,' ',n,' x ',m);
  for i:=1 to n do begin
    for j:=1 to m do begin
      x[i,j]:=random*10; Write(x[i,j]:8:2);
    end; WriteLn;
  end;
end;
procedure Mini(n,m:integer; const x:matr);
var mi,mj,i,j:integer;
begin
  mi:=1; mj:=1;
  for i:=1 to n do for j:=1 to m do begin
    if x[i,j]<x[mi,mj] then begin
      mi:=i; mj:=j;
    end;
  end;
  WriteLn('min: [',mi,',',mj,'] = ',x[mi,mj]:8:2);
end;
begin
  Randomize;
  vvod(7,5,'A',a); Mini(7,5,a);
  vvod(3,7,'B',b); Mini(3,7,b);
  vvod(4,5,'C',c); Mini(4,5,c);
  Write('Нажмите Enter...'); ReadLn;
end.