В области 20 районов . Площади , засеянные пшеницей ( в гектарах ), и урожай, собранный в каждом районе (в центнерах), хранятся в двух массивах. Определить среднюю урожайность пшеницы по каждому району и по области в целом — Pascal(Паскаль)

program  test;
uses crt;
const n=20;
var s,u:array[1..n] of word;
    su:array[1..n] of real;
    so: integer; {общая площадь земель по области}
    suo: real; {средняя урожайность по области}
    uo: longint; {общий урожай по области}
    i: byte;
begin
clrscr;
randomize;
so:=0;
uo:=0;
for i:=1 to n do
 begin
  s[i]:=random(201)+100;
  so:=so+s[i];
  u[i]:=random(2501)+2500;
  uo:=uo+u[i];
  su[i]:=u[i]/s[i];
 end;
suo:=uo/so;
writeln('-----------------------------------------');
writeln('| № | Площади | Урожай | Ср.урожайность |');
writeln('-----------------------------------------');
for i:=1 to n do
 begin
  gotoXY(1,whereY);write('|',i:3);
  gotoXY(5,whereY);write('|',s[i]:7);
  gotoXY(15,whereY);write('|',u[i]:7);
  gotoXY(24,whereY);write('|',su[i]:12:2);
  gotoXY(41,whereY);writeln('|');
 end;
writeln('-----------------------------------------');
writeln('общий урожай по области = ',uo,' общая площадь земель по области = ',so);
write('  средняя урожайность по области = ',suo:0:3);
readln
end.