Поменять форму ввода матрицы

[to-ot]

Помогите пожалуйста поменять форум ввода матрицы. Что бы вводилась не
x[1,1]=
x[2,1]=
а в строчку
1 2 3 5 6
7 8 9 0 3
2 1 2 3 4


uses
SysUtils;

type matr=array[1..8,1..8] of integer;
procedure Matrica(var m:matr;n:byte;c:char);
var i,j:byte;
begin
writeln('Vvedite elemnti matrici:');
for i:=1 to n do
for j:=1 to n do
begin
write('el[',i,',',j,']=');
readln(m[i,j]);
end;
writeln('Matrica ',c);
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:4);
writeln;
end;
writeln;
end;
procedure Bolshe(m:matr;n:byte;a:integer);
var i,j,k:byte;
s:integer;
begin
k:=0;
s:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if m[i,j]>a then
begin
k:=k+1;
s:=s+m[i,j];
end;
if k=0 then writeln('Vishe glavnoe diago',a,' net!')
else
begin
writeln('Kolichesto elementov vishe glavnoq diagonali bolshe ',a,' = ',k);
writeln('Ix summa=',s);
end;
writeln;
end;
var a,b:matr;
c,p:integer;
begin
Matrica(a,7,'A');
write('Vvedite chislo dlya sravneniya P=');
readln(p);
Bolshe(a,7,p);
Matrica(b,8,'B');
write('Vvedite chislo dlya sravneniya C=');
readln(c);
Bolshe(b,8,c);
readln