Определить общий конкурс. Определить факультет, на который легче поступить

type
  zap = record
    fakul: string;
    pl, za: integer;
    kn: real;
  end;
 
var
  z: zap;
  n: 1..10;
  i: integer;
  ok, ob: real;
  min: double;
 
begin
  write('Сколько в университете факультетов? ');
  readln(n);
  for i := 1 to n do
  begin
    write('Ввести название ', i, ' факультета: ');
    readln(z.fakul);
    write('Ввести план приема: ');
    readln(z.pl);
    write('Ввести число поданных заявлений: ');
    readln(z.za);
    z.kn := z.za / z.pl;
    writeln('Конкурс на ', z.fakul, ' факультет: ', z.kn:2:3);
  end;
  ok := 0;
  for i := 1 to n do
  begin
    ok := ok + z.kn;
  end;
  writeln('Общий конкурс ', ok:3:3);
  ob := ok / n;
  writeln('Средний общий конкурс ', ob:3:3);
  min := z.kn;
  for i := 1 to n do
    min := z.kn;
  begin
    if min < z.kn then min := z.kn;
    writeln('факультет, на который легче поступить - это ', z.fakul)
  end;
end.

type zap=record
         fakul: string[15];
         pl, za: integer;
         kn: real;
         end;
var  n:integer;
     a:array[1..10] of zap;
     i,op,pz,imin: integer;
     ok:real;
begin
repeat
write('Введите количество факультетов от 2 до 10 n=');
readln(n);
until n in [2..10];
op:=0;
pz:=0;
for i := 1 to n do
 begin
  write('Введите название ', i, ' факультета: ');
  readln(a[i].fakul);
  repeat
  write('Введите план приема: ');
  readln(a[i].pl);
  until a[i].pl>0;
  repeat
  write('Введите число поданных заявлений: ');
  readln(a[i].za);
  until a[i].za>0;
  a[i].kn:=a[i].za/a[i].pl;
  op:=op+a[i].pl;//общий план
  pz:=pz+a[i].za;//всего подано заявлений
 end;
ok:=pz/op;//общий конкурс
writeln('Результаты подачи заявлений');
writeln('------------------------------------------------------');
writeln('|   Факультет   |План приема|Подано заявлений|Конкурс|');
writeln('------------------------------------------------------');
for i:=1 to n do
writeln('|',a[i].fakul:15,'|',a[i].pl:8,'   |',a[i].za:12,'    |',a[i].kn:6:2,' |');
writeln('-------------------------------------------------------');
writeln('Общий конкурс=',ok:0:2);
imin:=1;
for i:=2 to n do
if a[i].kn<a[imin].kn then imin:=i;
writeln('факультет, на который легче поступить - это ', a[imin].fakul)
end.

var
  n: 1..10;
   i, pl, za: integer;
  kn, min,ok, ob: double;
  fakul: string;
 
begin
  ok := 0;
  min := kn;
  write('Сколько в университете факультетов? ');
  readln(n);
  for i := 1 to n do
  begin
    write('Ввести название ', i, ' факультета: ');
    readln(fakul);
    write('Ввести план приема: ');
    readln(pl);
    write('Ввести число поданных заявлений: ');
    readln(za);
    kn := za / pl;
    writeln('Конкурс на ', fakul, ' факультет: ', kn:2:3);
    ok := ok + kn;
       end;
     for i := 1 to n do
    if kn> min then
    begin
          min := i;
          writeln('факультет, на который легче поступить - это ', fakul);
  end;
  writeln('Общий конкурс ', ok:3:3);
  ob := ok / n;
  writeln('Средний общий конкурс ', ob:3:3);
  
  
end.