Дан текстовый файл. Найти сумму всех чисел, входящих в этот файл.

uses crt;
var
f:text;
s:string;
i,x,cod,sum:integer;
begin
clrscr;
writeln('vvedite text:');
assign(f,'asd.txt');
rewrite(f);
sum:=0;
while not eof(f) do
begin
readln(f,s);
for i:=1 to length(s) do
begin
if s[i] in ['1'..'9'] then
begin
val(s[i],X,cod);
sum:=sum+x;
end;
end;
writeln('summa: ',sum);
end;
close(f);
readln;
end.

var
 f: text;
 dir, st: string;
 summ, i, n, code: integer;
begin
 dir:='C:\Documents and Settings\Ev{G}eN\Рабочий стол\1.txt';
 summ:=0;
 assign(f, dir);
 reset(f);
  while not EOF(f) do
   readln(f, st);
  for i:=1 to length(st) do
   if st[i] in ['0'..'9'] then
    begin
     val(st[i], n, code);
     summ:=summ+n;
    end;
 close(f);
 writeln(summ);
end.

while not EOF(f) do
begin
readln(f, st);
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then
begin
val(st[i], n, code);
summ:=summ+n;
end;
end;

var
f:text;
s:string;
i,x,cod,sum:integer;
begin
assign(f,'asd.txt');
rewrite(f);
writeln('vvedite stroku');
readln(s);
writeln(f,s);
close(f);
reset(f);
while not eof(f) do
begin
readln(f,s);
for i:=1 to length(s) do
begin
if s[i] in ['1'..'9'] then
begin
val(s[i],X,cod);
sum:=sum+x;
end;
end;
end;
close(f);
writeln(sum);
readln;
end.