Логически законченные фрагменты оформить в виде подпрограмм, которым все необходимые данные передать через список параме

const n=8;
type Route=record
           nac,kon:string[20];
           nom:integer;
           end;
    mas=array[1..n] of Route;
procedure Create(var a:mas);
var i,k:integer;
    s:string;
begin
writeln('Введите данные о ',n,' маршрутах');
for i:=1 to n do
 begin
  writeln('Маршрут ',i);
  write('Начальный пункт: ');readln(a[i].nac);
  write('Конечный пункт: ');readln(a[i].kon);
  repeat
  write('Номер маршрута натуральное число: ');
  readln(s);
  val(s,a[i].nom,k);
  if(k<>0)or(n<=0) then writeln('Номер ввведен неверно');
  until(k=0)and(a[i].nom>0);
 end;
end;
procedure Nomer(a:mas;k:integer);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i].nom<>k) do inc(i);
if i>n then writeln('Такого маршрута нет')
else writeln('Маршрут номер ',k,' ',a[i].nac,'-',a[i].kon);
end;
procedure Fail(a:mas;var f:text);
var i:byte;
begin
assign(f,'marshruty.txt');
rewrite(f);
for i:=1 to n do
writeln(f,a[i].nac,' ',a[i].kon,' ',a[i].nom);
close(f);
writeln('Массив записан в файл marshruty.txt');
end;
var a:mas;
    m,k:integer;
    s:string;
    f:text;
begin
Create(a);
repeat
write('Введите номер маршрута для поиска: ');
readln(s);
val(s,m,k);
if(k<>0)or(m<=0) then writeln('Номер ввведен неверно');
until(k=0)and(m>0);
Nomer(a,m);
Fail(a,f);
end.