Переделать программу на ручной ввод или считывание данных из файла

var f:file of integer;
    n,k,a,i,j,mn,imn,i1,ip,pp,q:integer;
begin
 
randomize;
assign(f,'1111');
rewrite(f);
write('Сколько последовательностей записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  k:=5+random(6);{длина последовательности от 5 до 10}
  for j:=1 to k do
   begin
    a:=random(20)+1;
    write(f,a);
   end;
  if i<>n then
   begin
    a:=0;
    write(f,a);
   end;
 end;
reset(f);
writeln('Исходный файл:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
  if a=0 then writeln;
 end;
{добавим 0 в начало файла для удобства}
for i:=filesize(f)downto 1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  write(f,a);
 end;
a:=0;
seek(f,0);
write(f,a);
writeln;
{найдем конец первой последовательности
для определения окончания цикла удалений}
i:=1;
pp:=0;
while(i<filesize(f))and(pp=0) do
 begin
  seek(f,i);
  read(f,a);
  if a=0 then pp:=i-1
  else i:=i+1;
 end;

write('Сколько последовательностей записать в файл n=');
readln(n);
for i:=1 to n do
 begin
   write('Введите  длину последовательности k=');
   readln(k);
//   k:=5+random(6);{длина последовательности от 5 до 10}
  for j:=1 to k do
   begin
    readln(a);
//    a:=random(20)+1;
    write(f,a);
   end;