Сформировать матрицу размером 5*8 случайным образом из спектра значений 0-10. вывести

program array_;
var a: array [1..5, 1..8] of integer;
i, j, s: integer;
begin
randomize;
for i:= 1 to 5 do
begin
for j:= 1 to 8 do
begin
a[i, j]:=random(11); write(a[i,j]:4);
end;
writeln();
end;
j:= 3;
s:= 0;
writeln();
for i:=1 to 5 do if a[i,j]gt;5 then s:=s+a[i,j];

if s = 0 then writeln( В третьем столбце нет частей больше 5) else
writeln( Сумма частей третьего столбца,которые больше 5, равна , s)

end.