Типизированный файл с числами

Program PR8_Starodubtsewa;
 
  Var f:file of integer;
    i,n,m,s:integer;
  Begin
    write('Введите ко-во цифр: ');readln(m);
    s:=0;
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to m do
     Begin
      write('Введите ',i,'-ое число: ');readln(n);
      write(f,n);
     End;
    Reset(f);
    For i:=1 to 2 do
     Begin
      read(f,m);
      s:=s+m;
     End;
    Close(f);
    writeln('Сумма=',s);
  End.

uses crt;
var i,n,k,q:byte;
      num,sum: integer;
      arr: array [1..128] of integer;
      f: file of integer;
begin
clrscr;
assign(f,'digits.txt');
//формирование типизированного файла, если необходимо
rewrite(f);
write('Введите количество цифр: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, ' цифру: '); 
readln(num);
write(f,num);
end;
 close(f);
 //сформировали файл,теперь работаем с файлом
  //для удобства сделал проще. Читаю из файла в массив, а потом просто работаем с этим массивом
 num:=0;
 sum:=0;
 reset(f);
  while not eof (f) do
   begin
     inc(num);
     read(f,arr[num]);
   end;
 close(f);
 writeln('Цифры в файле: ');
  for i:=1 to num do
   begin
     write(' ',arr[i],' ');
     sum:=sum+arr[i];
   end;
writeln;
write('Введите k: '); readln(k);
write('Введите q: '); readln(q);
writeln('Сумма 1 и 2: ', arr[1]+arr[2]);
if (k>num) or (q>num) then writeln('Сумма k и q элементов не существует ')
else writeln('Сумма k и q: ', arr[k]+arr[q]);
writeln('Произведение 1 и последнего: ', arr[1]*arr[num]);
writeln('Сумма всех: ', sum);
readln;
end.