Задача в Паскале.

var a, i, j, n, m, code_error, chislo : integer;
summa: longint;
stroka, slovo: string;
f: text;
begin
{здесь ниже код на заполнение файла значениями наугад от 10 до 100, ввод
данных систематизирован на каждые пять символов введено 2 цифры}

Assign(f, 'dano.txt');
Rewrite(f);
write (' введите количество N и M =');
readln (n, m);
write (' ответ в файле dano.txt...');
for i:=1 to n do
begin
for j:=1 to m do
Write (f, 10+random (90):5);
writeln (f, '');
end;
Close(f);
writeln (' Ready! ');

{так как данные в файле у меня упорядочены через 5 символов, то
обращаюсь на считывание каждых 5 символов, можно и через пробелы решить,
но здесь лучше через 5 символов }

Assign(f, 'dano.txt');
Reset (f);
summa:=0;
while not Eof(f) do
begin
readln (f, stroka);
a:=length (stroka);
for i:=1 to trunc (a/5) do
begin
slovo:=copy (stroka, i*5-4, 5);
val (slovo, chislo, code_error);
summa:=summa+chislo;
end;
end;
Close(f);
Assign(f, 'otvet.txt');
rewrite (f);
writeln (f, 'summa = ', summa);
close (f);
writeln (' Ready! ');
readln;
end.

program qq;
var f: file of integer;
sum, tmp: integer;

begin
assign(f, 'Имя первого файла');
reset(f);
sum := 0;
while not eof(f) do begin
read(f, temp);
sum := sum + temp;
end;
close(f);
assign(f, 'Имя второго файла');
rewrite(f);
write(f, sum);
close(f);
end.