Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N9

Program V41_N9;
uses crt;
type
 mas1 = array[1..12]of string[17];
 mas2 = array[1..12]of real;
 mas3 = string[17];
var
 Station    :mas1;
 Rast       :mas2;
Procedure Vvod(var S:mas1;var R:mas2);
 var
  i:byte;
  F:text;
 begin
  assign(F,'V41_N9.txt');
  reset(F);
  for i:=1 to 12 do
   readln(F,S[i],R[i]);
  close(F);
 end;
Procedure Vivod(S:mas1;R:mas2;N1,N2:mas3);
 var
  i,k,l:byte;
  Sum:real;
 begin
  Sum:=0;k:=0;l:=0;
  for i:=1 to 12 do begin
   if S[i]=N1 then k:=1;
   if S[i]=N2 then if k=0 then l:=1
                          else k:=0;
   if k=1 then Sum:=Sum+R[i];
  end;
  if l=1 then begin
   i:=1;
   while S[i]<>N2 do begin
    Sum:=Sum+R[i];
    inc(i);
   end;
  end;
  writeln('ђ ббв®п­ЁҐ ¬Ґ¦¤г ',N1,' Ё ',N2,': ',Sum:0:2,'Є¬');
 end;
BEGIN
 Vvod(Station,Rast);
 clrscr;
 Vivod(Station,Rast,'Љ®¬б®¬®«мбЄ п    ','ЉгабЄ п          ');
 Vivod(Station,Rast,'’ Ј ­бЄ п        ','ЃҐ«®агбЄ п       ');
 Vivod(Station,Rast,'Џ аЄ Љг«мвгал    ','Љ®¬б®¬®«мбЄ п    ');
 while not keypressed do;
END.