Рассчитать среднюю заработную плату каждого сотрудника

uses crt;
var f:text;
st:string;
a,sr:real;
code,k,i:integer;
begin
writeln('Расчет заработной платы');
assign(f,'11.txt');
reset(f);
         while not eof (f) do begin
         k:=0;
         sr:=0;
         readln(f,st);
         for i:=1 to 3 do begin
             val(copy(st,11+k,4),a,code);
             sr:=sr+a;
             k:=k+4;
             end;
             writeln(copy(st,1,10),(sr/3):4:2);
             end;
            close(f);
             end.

uses crt;
var
f:text;
k,code:longint;
x:real;
st:string;
begin
assign(f,'c:\11.txt');
reset(f);
k:=1;
while not eof (f) do
begin
readln(f,st);
val(st,x,code);
if code=0 then writeln('Ñðåäíÿÿ çàð. ïëàòà  çà òðè ìåñÿöà ',k, ' ãî ñîòðóäíèêà', x/3:0:3)
else  writeln('Ñòðîêà ñîäåðæèò îøèáêè!');
k:=k+1;
end;
close(f);
end.

assign(f,'c:\11.txt');

assign(f,'c:\11.txt');

uses crt;
var
f:text;
code,i:longint;
x:real;
st,sum,fam:string;
begin
assign(f,'c:\11.txt');
reset(f);
sum:=''; fam:=''; i:=1;
while not eof (f) do
begin
readln(f,st);
while (st[i]<>'.')and(i<>11)do
begin
fam:=fam+st[i];
i:=i+1;
end;
sum:=copy(st,11,length(st)-10);
val(sum,x,code);
if code=0 then writeln('Ñðåäíÿÿ çàð. ïëàòà ',fam,': ', x/3:0:3)
else  writeln('Ñòðîêà ñîäåðæèò îøèáêè!');
i:=1; sum:=''; fam:='';
end;
close(f);
end.