Baca dan Cetak Matriks

program baca_dan_cetak_matriks;
uses wincrt;
var
i,j,baris,kolom:integer;
x:array [1..10,1..10] of integer;
begin
clrscr;
write ('banyak baris (maks = 10) : ');
readln (baris);
write ('banyak kolom (maks = 10) : ');
readln (kolom);
writeln;
for i:= 1 to baris do
begin
for j:= 1 to kolom do
begin
write ('elemen(',i,',',j,') : ');
readln (x[i,j]);
end;
writeln;
end;
writeln;
writeln ('matriks : ');writeln;
for i:= 1 to baris do
begin
for j:= 1 to kolom do
write (x[i,j]:8);
writeln;
end;
readln;
end.