Нужна помощь безотлагательно!!!

1.
var Dat: array [1 .. 30] of integer;

2.
randomize;
for i := 1 to 30 do begin Dat[i] := random(64)+7;

3.
m = 8

4.
c = 3

5.
s = 99 ?

6.
var
  A: array [1..10] of integer;
  i, sum, count: integer;
begin
  randomize;
  sum := 0; count := 0;
  for i := 1 to 10 do
  begin
    A[i] := random(1001);
    write(A[i]:6);
    if ((A[i] gt; 99) and (A[i] lt; 1000)) then
    begin
      sum := sum + A[i];
      count := count + 1;
    end;
  end;
  writeln;
  if ((sum lt;gt; 0) and (count lt;gt; 0)) then
  begin
    writeln('Сумма трехзначных частей = ', sum);
    writeln('Количество трехзначных частей = ', count);
  end
  else
  writeln('Не найдено');
end.