Блок схема для процедуры ввода вывода чисел двухменого массива

uses crt;
const nmax=20;
type Vmatr=array[1..nmax,1..nmax] of real;//вещественные
     Cmatr=array[1..nmax,1..nmax] of integer;//целые
procedure VvodV(var mt:Vmatr;var x,y:byte);
var i,j:byte;
begin
repeat
writeln('Количество строк: ');
readln(x);
until x in [1..nmax];
repeat
writeln('Количество столбцов: ');
readln(y);
until y in [1..nmax];
writeln('Введите ',x*y,' действительных чисел:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure VvodC(var mt:Cmatr;var x,y:byte);
var i,j:byte;
begin
repeat
writeln('Количество строк: ');
readln(x);
until x in [1..nmax];
repeat
writeln('Количество столбцов: ');
readln(y);
until y in [1..nmax];
writeln('Введите ',x*y,' целых чисел:');
for i:=1 to x do
for j:=1 to y do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
clrscr;
end;
procedure VyvodV(var mt:Vmatr;x,y:byte);
var i,j:byte;
begin
writeln('Матрица:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:5:2,' ');
  writeln;
 end;
writeln;
end;
procedure VyvodC(var mt:Cmatr;x,y:byte);
var i,j:byte;
begin
writeln('Матрица:');
for i:=1 to x do
 begin
  for j:=1 to x do
  write(mt[i,j]:4,' ');
  writeln;
 end;
writeln;
end;
var v:Vmatr;
    c:Cmatr;
    n,m:byte;
begin
clrscr;
VvodV(v,n,m);
VyvodV(v,n,m);
write('Press Enter...');
readln;
VvodC(c,n,m);
VyvodC(c,n,m);
write('Press Enter...');
readln;
end.