Сформировать файл из модулей целых чисел, найти сумму квадратов нечетных чисел — Pascal(Паскаль)

program lab8a;
Uses crt;
Var f: file of integer; k,x,s: integer; c:char;
Begin
clrscr;assign (f,'lab12.dat');rewrite (f);
writeln ('Введите целые числа. Признак конца ввода - 0');
repeat
read (x) ;x := abs(x);write(f,x)
until x = 0;
reset(f);
writeln('Содержимое файла:');
s:=0; k:=0;
while not eof(f) do
begin
read (f,x);write (x:4);
if x mod 2<> 0 then s:=s+x*x;
end;
close (f); writeln;
writeln ('Сумма квадратов нечетных чисел: ',s);
c := readkey
End.