Вычислить сумму элементов массива и разделить все элементы матрицы, кратные 5, на эту сумму - Pascal - Ответ 87619

Пример матрицы
1 _ 5 _ 10 _15
2 _ 3 _  4 _  5
6 _ 7 _  8 _  9
1_  1 _  1 _ 10

uses crt;
const n=4;//размер матрицы
var a:array[1..n,1..n] of real;
    i,j,k:integer;
    sm:real;
begin
clrscr;
writeln('Vvedite ',n*n,' elementov matricy:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);  //вводим в ручную, чтобы были кратные 5 и равные в последней строке первому элементу.
readln;
clrscr;
writeln('Ishodnaja matrica:');
sm:=0;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        sm:=sm+a[i,j];//сразу считаем сумму
        write(a[i,j]:5:1);//и выводим
      end;
    writeln;
  end;
writeln('Summa=',sm:0:1);//сумму на экран
if sm=0 then //если ноль
   begin
    writeln('Summa=0');
    writeln('Matrica bez izmenenij:');//выводим матрицу как она есть
    for i:=1 to n do
      begin
        for j:=1 to n do
        write(a[i,j]:5:1);
        writeln;
      end;
   end
else  //иначе
    begin
      for i:=1 to n do
      for j:=1 to n do
      if (frac(a[i,j])=0)and(trunc(a[i,j]) mod 5=0)//если дробная часть числа(frac)=0
      then a[i,j]:=a[i,j]/sm;                      // а целая часть(trunc)кратна 5, то делим
      writeln('Izmenennaja matrica:');
      for i:=1 to n do
         begin
           for j:=1 to n do
           write(a[i,j]:5:1); //выводим измененную матрицу
           writeln;
         end;
     end;
k:=0;
for i:=1 to n do
if a[n,i]=a[1,1] then k:=k+1;//считаем сколько в последнем ряду совпало с первым элементом
writeln('Kolichestvo=',k);
readln
end.