pomoc s pascalom

program cislo;
uses crt;
var cisla:array [1..10] of integer;
    i,najmensie,najvacsie,sucet,ktore: integer;
    priemer,bin,najblizsie: real;

begin
clrscr;
writeln('Zadajte 10 cisiel. ');
for i:=1 to 10 do readln(cisla[i]);

najmensie:=cisla[1];
for i:=2 to 10 do
    if cisla[i] < najmensie then najmensie:=cisla[i];
writeln;
writeln('Najmensie cislo je ',najmensie);

najvacsie:=cisla[1];
for i:=2 to 10 do
    if cisla[i] > najvacsie then najvacsie:=cisla[i];

writeln('Najvacsie cislo je ',najvacsie);

for i:=1 to 10 do
    sucet:=sucet+cisla[i];
writeln('Priemer je ',sucet/10:5:2);

najblizsie:=sucet/10;
bin:=sucet/10;
for i:=2 to 10 do begin
    if (cisla[i] > bin ) then
       if (cisla[i] - bin) < najblizsie then begin
          najblizsie:=cisla[i]-bin;
          ktore:=i;
          end;
    if (cisla[i] < bin ) then
       if (bin - cisla[i]) < najblizsie then begin
          najblizsie:=bin-cisla[i];
          ktore:=i;
          end;

end;
writeln('Najblizsie k priemeru bolo ',ktore,'. cislo s hodnotou ',cisla[ktore]);
readkey;

end.

program zadanie;

uses crt;

const N = 10;

var pom, i : integer;
    pole : array [1..N] of integer;

function min : integer;
begin
   pom := pole[1];
   for i := 1 to N do
      if (pom > pole[i]) then
         pom := pole[i];

   min := pom
end;

function max : integer;
begin
   pom := pole[1];
   for i := 1 to N do
      if (pom < pole[i]) then
         pom := pole[i];

   max := pom
end;

function average : real;
begin
   pom := 0;
   for i := 1 to N do
      pom := pom + pole[i];

   average := (pom/N);
end;

function best_to_average : real;
var avg, best : real;
begin
   avg := average();
   best := pole[1];

   for i := 1 to N do
      if (((pole[i] > avg) and (pole[i] < best)) or ((pole[i] < avg) and (pole[i] > best))) then
         best := pole[i]
      else if (pole[i] = avg) then
         best := pole[i];

   best_to_average := best;
end;

begin
   clrscr;

   writeln('Zadaj prvky pola : ');

   for i := 1 to N do
      readln(pole[i]);

   writeln('Minimalna hodnota : ', min);
   writeln('Maximalna hodnota : ', max);
   writeln('Priemerna hodnota : ', average:2:2);
   writeln('Najblizsie k priemernej hodnote : ', best_to_average:2:2);

   readln;

end.