нужен тип переменой

[I1IarpeY]

нужно чтобы эта программа суммировала цены товаров взятые из файла "f.txt"
когда пытаюсь суммировать пишет ошибку 106 я думаю надо добавить новую переменную и задать ей тип но какую иммено и какой тип

PHP код:

Program zadacha3;
uses crt;
label bye,x;
var f:text;
    naz:string;
    str:string;
    cena:real;
    n:Integer;
    kol:Integer;
    sum:Integer;
    cymma:Real;
    sa:Real;
Procedure summmma;
begin
clrscr;
writeln('BBbl4ucJIeHue Cymmbl');
sum:=0;
Assign(f,'h:\f.txt');
Reset(f);
While not eof (f) do
begin
Readln(f,n);
sum:=sum+n;
end;
close(f);
sa:=sum;
Writeln('srednee arifm.',sa:8:2);
readkey;
end;
    Begin
     clrscr;
     Writeln('***Magazin prodazji texniki***');
    Writeln('1:BBoD DaHHblX; 2:BblXoD; 3:Cymm');
     readln(n);
     case n of
     1:begin
     writeln('DaJIbI1IE');
     goto x;
     end;
     2:begin
     writeln('exit');
     goto bye;
     end;
     3:summmma;
     else writeln('poka');
     x: writeln('dobavlenie informacii');
     Assign(f,'G:\F.txt');
     Append(f);
     If IOResult<>0 then
     Begin
     REwrite(f);
     If IOResult<>0 then
     Begin
     Writeln('Oshibka obrashenia k diskete');
     End;
     End;
     Write('Nazvanie tovara--->');
     readln(naz);
     Write('strana proizvoditel--->');
     readln(str);
     Write('Cena ---->');
     readln(cena);
     Writeln(f,naz);
     Writeln(f,str);
     Writeln(f,cena);
     close(f);
       Writeln('1:BBoD DaHHblX; 2:BblXoD; 3:Cymm');
     readln(n);
     case n of
     1:begin
     writeln('dalwe');
     goto x;
     end;
     2:begin
     writeln('exit');
     goto bye;
     end;
     3:summmma;
     else writeln('poka');
     bye:
     writeln('informacia dobavlena');
readkey;
end;
end;
end. 


пример файла 1 строка товар, 2 строка страна, 3 строка цена:

monitor
china
5002

monitor2
china
5003

[Serge_Bliznykov]

ну цена же в каждой третьей строчке?
Значит 1 и 2 -ю строки надо игнорировать?

тогда( это как минимум - дальше не смотрел!)

function  summmma : real;
var s:string;
  n, sum : real;
begin
  clrscr;
  writeln('BBbl4ucJIeHue Cymmbl');
  sum:=0;
  Assign(f,'h:\f.txt');
  Reset(f);
  While not eof (f) do begin
     Readln(f,s); {прочитали товар}
     Readln(f,s); {прочитали страну}
     Readln(f,n);
     sum:=sum+n;
  end;
  close(f);
  Writeln('srednee arifm.',sum:8:2);
  summmma := sum;
  readkey;
end;

ну и вызов процедуры переделать на вызов функции...

[I1IarpeY]

а можете написать как вызвать функцию? а то мы только процедуры изучали

[I1IarpeY]

огромное спс