Ввод и вывод массива в процедурах

Программа демонстрирует применение процедур для ввода и вывода массива.

{программа с процедурами ввода и вывода}
program wwod_massiva_1;
 uses crt;
 const
 n=2;m=3;
 var
 a:array[1..n, 1..m] of real;
 i,j: integer;
 Quit:char;
 {процедура ввода}
 procedure wwod;
 begin
 clrscr;
 writeln('Ввод массива (элементов матрицы) по строкам:');
 for i:=1 to n do
 begin
 writeln('введите ',i,'-ую строку');
 for j:=1 to m do read(a[i,j]);
 end;
 end;
 {процедура вывода}
 procedure wywod;
 begin
 writeln('Вывод введенного массива');
 for i:=1 to n do
 begin
 writeln;
 for j:=1 to m do write(a[i,j]:4:1,' ');
 end;
 writeln;
 end;
 Begin
 {цикл с постусловием repeat}
 repeat
 {вызов процедуры ввода}
 wwod;
 {вызов процедуры вывода}
 wywod;
 {переменная Quit принимает значение
 введенного с клавиатуры символа}
 writeln('Выход из цикла - нажать клавишу q');
 Quit:=readkey;
 {выход из цикла в, случае если нажата клавиша 'q'/'й'}
 until (Quit='q') or (Quit='й');
 readln;
 End.