Ошибки в коде

Program var2;
var
fam: array [1..10] of string[20];
dolzh:array[1..10] of string[20];
zp: array [1..10] of real;
min, sum: real;
p: array [1..10] of string[20];
i,n,l: integer;
begin
writeln ('vvedite fam');
readln(n);
for i:=1 to n do begin
writeln('vvedite dolzh');
readln(dolzh[i]);
writeln('vvedite zp');
readln(zp[i]);
 
end;
writeln('ishodnie dannie');
writeln('__________________________________________________');
writeln('!nomer!fam! dolzh! !zp!');
writeln('__________________________________________________');
for i:=1 to n do begin
writeln('!',i,'!',fam[i]:20,'!',dolzh[i]:2,'!',zp[i]:5:2,'!');
end;
 
min:=zp[1];
l:=0;
for i:=2 to n do begin
if min>zp[i] then
begin
min:=zp[i];l:=i;
end;
end;
writeln('naibmenshaya zp', fam[l]:20,' ravna:', min:6:2);
 
sum:=0;
for i:=1 to n do begin
sum:=sum+zp[i];
end;
writeln('summa vsego',sum:10);
 
l:=0;
for i:=1 to n do begin
if zp[i]>1500 then
begin
l:=l+1;p[l]:=fam[i];
end;
end;
if l=0 then
writeln('net>15000')
else begin writeln('zp <15000 y');
for i:=1 to l do writeln(p[i]:25);
end;
end.

 Var fam: array [1..10] of string[20];
     dolzh:array[1..10] of string[20];
     zp: array [1..10] of real;
     n: integer;
     min, sum: real;
    
 Begin
 
 For var i:= 1 to 10 do begin
  Write('Фамилия   ', i, ' сторудника: ');
  ReadLn(fam[i]);
  Write('Должность ', i, ' сторудника: ');
  ReadLn(dolzh[i]);
  Write('Зарплата  ', i, ' сторудника: ');
  ReadLn(zp[i]);
  WriteLn;
 end;
 
 min:= zp[1];
 For var i:= 1 to 10 do begin
  If zp[i]<min then min:= zp[i];
  If zp[i]<15000 then n+=1;
  sum+=zp[i];
 end;
 
 WriteLn('Минимальная зарплата: ', min);
 WriteLn('Общая зарплата: ', sum);
 WriteLn('Сотрудников, получающих менее 15000р.: ', n);
 
 end.