Помогите решить. Pascal. Дано матрицу А размером 6х7. Для каждой строки матрицы вычислить сумму элементов, значение которых превышает заданное число С. С = 18.6.

program prj1;
const C = 18.6;
var i,j,smm: integer;
A: array[1..6,1..7] of real;
begin
...
...
{Массив уже заполнен}
smm:=0;
for i:=1 to 6 do begin
for j:=1 to 7 do
if A[ i ] > C then smm:=smm + A[ i ];
writeln(smm); smm:=0;
end;
end.