Составить программу для заполнения массива А размером 15x15

program Jek;
uses crt;
const
n=15;
var
a:array[1..n,1..n] of real;
i,p,k:integer;
c:real;
begin
clrscr;
randomize;
for i:=1 to n do
for p:=1 to n do
begin
c:=random(699)-135;
a[i,p]:=c/10;
end;
for i:=1 to n do
begin
for p:=1 to n do
write(a[i,p]:5:1);
writeln;
end;
writeln;
for i:=1 to n do
for p:=1 to n do
if a[i,p]>0 then inc(k);
write(k);
end.

program rnd;
const
x=-13.5;{Служат для корректного создания дробной части, но не являются приделами для рандома}
y=56.3;
var sum,z,n,p,s: real;
i,j:integer;
a:array[1..15, 1..15] of real; {Создаем массив 15 на 15}
 
begin
randomize;
writeln('Вывод массива 15х15');
for i:=1 to 15 do
    begin
         for j:=1 to 15 do
             begin
                  z:=((random(70)-13)); {Генерирует случайную целую часть числа}
                  s:=random(10)/10; {Генерирует дробную часть }
                  if z>0 then z:=z+s else z:=z-s; {Проверяет плюсовать или минусовать дробную часть}
                  if z<x then z:=x; {Обрезает согласно приделам см константы}
                  if z>y then z:=y; {Обрезает согласно приделам см константы}
                  a[i,j]:=z;
             end;
    end;
for i:=1 to 15 do
    begin
    Writeln('  ');
    Writeln('  ');
         for j:=1 to 15 do
             begin
                  Write('   ',a[i,j]); {Выводим массив}
                  if a[i,j]>0 then sum:=sum+1; {Считаем сумму элементов больших 0}
             end;
    end;
Writeln('  ');
Writeln('Сумма положительных эл',sum); {Выводим}
end.