esercitazione su matrici , con turbo pascal

Program matri4;
(* inserimento e stampa matrice valori interi *)
(* possibile indicare numero righe e colonne *)

Program matri4;
(* inserimento e stampa matrice valori interi *)
(* possibile indicare numero righe e colonne  *)

   uses crt;
  const righe=8;colonne=8; 
  
  var mat:array[1..righe,1..colonne] of integer;
      r,c,rx,cx:integer;
         
begin
write('scrivi numero righe matrice:massimo 8   :');readln(rx);
write('scrivi numero colonne matrice:massimo 8 :');readln(cx);
writeln('scrivi valori interi per la matrice:ENTER dopo ogni valore');
writeln;
for r:=1 to rx do
begin
for c:=1 to cx do
begin
write('riga ',r,' colonna ',c,' valore = ');
readln(mat[r,c]);end;
end;
writeln;writeln('premi ENTER');readln;clrscr;
writeln('stampo la matrice inserita ');writeln;
for r:=1 to rx do
begin
for c:=1 to cx do
begin
write(mat[r,c]:5);
end;
writeln;
end;
writeln;writeln;
writeln('chiama insegnante per verificare e valutare ');readln;readln;
end.