Ввести с клавиатуры массив размером N на М, компоненты которого являются действительными числами. Найти сумму квадратов компонент массива — Pascal(Паскаль)

program qwe;
uses crt;
type mas=array [1..100,1..100] of integer;
var a:mas;
sum,i,j,n,m:integer;
begin
clrscr;
 for i:=1 to n  do
 for j:=1 to m do
 begin
 read(a[i,j]);
 sum:=sum+sqr(a[i,j]);
 end; 
writeln(sum);
readln;
end.