Файлы Опции

[Emerson]

Ребят,помогите решить задачу по файлам(лекции не было,а задачу дали).Дан файл,содержащий текст и арифмитическое выражение вида axb,где x один из знаков +.-.*./. Выписать все арифмитические выражения и вычислить их значения

[Emerson]

Мучал мозг ) но не смог сделать,вот до чего дошел:

unit unit1;

interface
type
f=file of integer;



Procedure Prosmotr(var f1:f);
Procedure Pods4et(var f1:f);


implementation
Var
x,a,b:integer;
z:char;
 Procedure Prosmotr;
Begin
reset(f1);
while not EOF(f1) do
                 begin
                 read(f1,z);
                 write(z);
                 writeln;
                 end;
closefile(f1);
end;
Procedure Pods4et;
var
s:string[20];
begin
reset(f1);

while not EOF(f1) do begin
readln(f1,s);
i:=0;
st:='';
while length(s)>0 do begin

repeat

delete(s,1,1)
until  (s[1]>='0') and (s[1]<='9');
repeat
begin
i:=i+1;
st:=st+s[i];
until   (s[i]<'0') or (s[i]>'9');
if s[i] in p then val(st,g,code);
delete (s,1,i);