TPascal.....задачки

uses crt
const max=500;
var a:array[1..10] of real;
var iMax,iMin,i:integer;
mult,summ,tMax,tMin:real;
begin
clrscr;
mult:=1;
summ:=0;
tMax:=0;
tMin:=max;
randomize;
for i:=1 to 10 do begin
 a[i]=random(max)-250;
 if(abs(a[i])>tMax)then begin 
  tMax:=abs(a[i]);
  iMax:=i;
 end;
 if(abs(a[i])<tMin)then begin
  tMin:=abs(a[i]);
  iMin:=i;
 end;
summ:=summ+a[i];
end;

if(iMax>iMin)then for i:=iMin to iMax do mult:=mult*a[i];
if(iMax<iMin)then for i:=iMax to iMin do mult:=mult*a[i];

writeln('сумма элементов массива = ',summ);
writeln('произведение элементов массива находящихся между макс по модулю и мин по модулю = ',mult);
end.

if(a[i]>0)then summ:=summ+a[i];

while(not(eof(input))) do begin
{
 все тоже самое тока не рандом а read(a[i]);
}
inc(i);
end;