РЕШИТЕ Безотлагательно ПОЖАЛУЙСТА Pascal

var a:array[1..20] of integer;

i,z:integer;

begin

    write('Зарплаты:');

    randomize;

    for i:=1 to 20 do

    begin

         a[i]:=random(25000)+15000;

         write(a[i],' ');

         if (a[i]gt;27000) and (a[i]lt;38000) then z:=z+1

    end;

    writeln;

    write('тружеников получивших зарплаты от 27000 до 38000=',z);

end.