Введите случайные числа и выведите их квадраты. Двумерный массив. На паскале

Uses crt; const n=5; m=5; var a: array[1… n,1… m] of integer; i,j: integer; beginrandomize; for i: =1 to n dofor j: =1 to m doa[i,j]: =random (20); for i: =1 to n dobeginfor j: =1 to m dowrite (a[i,j]: 3); writeln; end; writeln; for i: =1 to n dofor j: =1 to m doa[i,j]: =sqr (a[i,j]); for i: =1 to n dobeginfor j: =1 to m dowrite (a[i,j]: 4); writeln; end; writeln; end.