Даны действительные числа A1,…,A37. все числа этой последовательности, начиная с первого положительного уменьшить на 0,5 — Pascal(Паскаль)

uses crt;
const n=37;
var a:array[1..n] of real;
    i,j:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv;');
for i:=1 to n do
  begin
   a[i]:=random(10)+random-6;
   write(a[i]:5:1);
  end;
writeln;
for i:=1 to n do
if a[i]>0 then
  begin
    j:=i; //запоминаем первое положительное
    break;  //дальше не ищем
  end;
for i:=j to n do
a[i]:=a[i]+0.5;  //увеличиваем
writeln('Rezultat:');
for i:=1 to n do
write(a[i]:5:1);
readln
end.