Одномерный массив

{$R-}
Program xa;
Uses
  crt;
Type
  massiv=array [1..1] of real;
var
  mas:^massiv;
  n,count,i:integer;
  c:real;
  sum:extended;
begin
  repeat
    clrscr;
    Writeln('VVedute n');
    readln(n);
  until n>0;
  GetMem(mas,SizeOf(massiv)*n);
  clrscr;
  Writeln('VVedute cam massiv');
  for i:=1 to n do
  begin
    Write('A[' ,i, ']=');
    readln(mas^[i])
  end;
  clrscr;
  Writeln('VVedute C');
  readln(c);
  clrscr;
  Writeln('HaLLi macciv');
  for i:=1 to n do
    Write(mas^[i]:6:2, ' ');
  Writeln;
  Writeln('C= ',C:10:2);
  Write('Kolu4ectvo ElemenTov 3na4enue kotopblx men''LLie C=');
  count:=0;
  sum:=0;
  for i:=1 to n do
    if mas^[i]<C then
      inc(count)
    else
      if mas^[i]>C then
        if sum=0 then
          sum:=mas^[i]
        else
          sum:=sum*mas^[i];
  Write(count);
  Writeln;
  Write('Prou3vedenue elementov boL''LLIux C= ' ,sum:10:2);
  Writeln('Ha}l{mute enter...');
  FreeMem(mas,SizeOf(massiv)*n);
  readln
end.
{$R+}

program massiv;
uses crt;
var a:array[1..100] of real;
    n,i,km,kb:byte;
    c,p:real;
begin
clrscr;
randomize;
repeat
write('Размер массива, не более 100 n=');
readln(n);
until n in [1..100];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=20*random;
  write(a[i]:7:2);
 end;
writeln;
write('Введите число С=');
readln(c);
km:=0;kb:=0;p:=1;
for i:=1 to n do
if a[i]<c then km:=km+1
else if a[i]>c then
 begin
  p:=p*a[i];
  kb:=kb+1;
 end;
writeln('Количество элементов, меньше ',c:0:2,' = ',km);
if kb>0 then write('Произведение элементов, больших ',c:0:2,' = ',p:0:2)
else write('Элементов, больших ',c:0:2,' нет!');
readln
end.