Cклавиатуры вводятся 30 чисел.найти произведение положительных чисел.

Var a,b,c:integer;
begin
writeln('введите 30 чисел');
readln(a);
b:=1;
c:=1;
while b<>30 do begin
if a > 0 then  c:=a*c;
readln(a);
b:=b+1;
end;writeln('ответ ',c);
end.

 program Project2;
{$APPTYPE CONSOLE}
uses  SysUtils;
   var i,x,y,z, dwa,tri,shetire,pati:Integer;
begin 
 Writeln('student Fediya='); 
 Readln(i); 
 Writeln('student Sungat=');
  readln(x);
  Writeln('student Alex='); 
 readln(y); 
Writeln('student Halif='); 
Readln(z); 
 case i of 
 2: Inc(dwa); 
  3: Inc(tri); 
 4: Inc(shetire); 
  5: Inc(pati); 
 end; 
 begin
    case x of 
 2: Inc(dwa); 
  3: Inc(tri);
   4: Inc(shetire);
   5: Inc(pati);
  end;
  end;
   begin
     case y of 
  2: Inc(dwa);
   3: Inc(tri); 
 4: Inc(shetire);   
5: Inc(pati); 
 end;   end; 
  begin     
 case z of   
2: Inc(dwa); 
 3: Inc(tri);  
4: Inc(shetire);   
5: Inc(pati);   
end;   
 end;
 WriteLn(#13#10'dwa: ', dwa, #13#10'tri: ', tri, #13#10'shetire: ', shetire, #13#10'pati: ', pati);
 ReadLn;
    { TODO -oUser -cConsole Main : Insert code here }end.

Решение:

const M = 10;
var a : array [1..M] of integer;
    i,max, odd : integer;
begin
    odd := 0;
    {Заполнение массива}
    for i := 1 to M do
    begin
        write('Input a[',i,']:' );
        readln(a[i]);
    end;
    {Вывод массива на экран}
    for i := 1 to M do
        write(a[i]:2,' ');
    writeln;
    {Поиск максимального в массиве}
    max := a[1];
    for i := 2 to M do
        if (a[i] > max) then
            max := a[i];
    writeln('Максимальный элемент массива: ',max);
    {Поиск всех нечетных чисел в массиве и замена их на 1}
    for i := 1 to M do
        if (a[i] mod 2 = 1) then
            begin
            a[i] := 1;
            odd := 666;
            end;
    {Вывод сообщения об отсутствии нечетных чисел}
    if (odd = 0) then
        writeln('В массиве нечетных чисел нет');
    {Вывод преобразованного массива}
    for i := 1 to M do
        write(a[i]:2,' ');
    writeln;
    readln;
end.

В фигурных скобках - комментарии, из программы можно удалять безболезненно. M - количество элементов в массиве.
Контрольные примеры для массива из 10 элементов:
1) Массив "1 2 3 4 5 6 7 8 9 10" будет преобразован в "1 2 1 4 1 6 1 8 1 10", максимальный элемент (до преобразования) 10
2) Массив " 2 2 2 2 2 2 2 2 2 2" будет преобразован в " 2 2 2 2 2 2 2 2 2 2", на экран будет выведено сообщение "в массиве нечетных чисел нет", максимальный элемент 2