Задан файл f1 целых чисел.Добавить к каждому элементу файла f1 «!» и результат записать в файл f2.Вывести результат на экран — Pascal(Паскаль)

uses crt;
var f1:file of integer;
    f2:file of string;
    a:integer;
    s:string;
begin
clrscr;
write('Имя числового файла ');
readln(s);
assign(f1,s);
rewrite(f1);
write('Имя строкового файла ');
readln(s);
assign(f2,s);
rewrite(f2);
writeln('Введите в файл целые числа, окончание ввода 0:');
repeat
readln(a);
write(f1,a);
until a=0;
clrscr;
reset(f1);
while not eof(f1) do
 begin
  read(f1,a);
  str(a,s);
  s:=s+'!';
  write(f2,s);
 end;
close(f1);
close(f2);
reset(f2);
writeln('Результат:');
while not eof(f2) do
 begin
  read(f2,s);
  write(s);
 end;
close(f2);
readln
end.