Уровень A. Напишите программу, которая находит среднее арифметическое всех чисел, записанных в файле в столбик, и выводит результат в другой файл.(ошибка времени исполнения)

var
a, b, c: integer;
d: text;
begin
assign(d,'input. txt');
reset(d);
c:=0;
b:=0;
while not eof do
begin
readln(d, a);
c:= c + a;
b:= b + 1;
end;
close(d);
assign (d,'output. txt');
rewrite(d);
write(d, c/b);
close(d);
end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

у меня тоже даша получилось))

в в) так как там идет в раза больше тоесть 3 в 2 рказа меньше чем 6, и потом они идут в обратном порядке 3 цифры

var temp: array[1..31] of integer; k,i: integer;

beginfor i: =1 to 31 do readln(temp[i]);

for i: =1 to 31 do 

if a[i]< 0 then inc(k);

writeln(k);

end.