Подскажите плиз в какой программе написано

{ шифр простой замены }
     program subst;
     type
       str80 = string[80];
 
     var
       inf, outf: str80;
       start: integer;
       ch: char;
 
     procedure code (inf, outf: str80; start: integer);
     var
       infile, outfile: file of char;
       ch: char;
       t: integer;
 
     begin
       assign(infile, inf);
       reset(infile);
       assign(outfile, outf);
       rewrite(outfile);
       while not eof(infile) do
       begin
         Read(infile, ch);
         ch : = upcase(ch);
         if (ch>='A') and (ch<='Z') then
         begin
           t  := ord(ch)+start;
           if t>ord('Z') then t  := t-26;
           ch  := chr(t);
         end;
         Write(outfile, ch);
       end;
       WriteLn('файл закодирован');
       close(infile); close(outfile);
     end;
 
     procedure decode(inf, outf: str80; start: integer);
     var
        infile, outfile: file of char;
        ch: char;
        t: integer;
 
     begin
       assign(infile, inf);
       reset(infile);
       assign(outfile, outf);
       rewrite(outfile);
 
       while not eof(infile) do
       begin
         read(infile, ch);
         ch  := upcase(ch);
         if (ch>='A') and (ch<='Z') then
         begin
           t  := ord(ch)-start;
           if t<ord('A') then t  := t+26;
           ch  := chr(t);
         end;
         Write(outfile, ch);
       end;
       WriteLn('файл декодирован');
       close(infile); close(outfile);
     end;
 
     begin
       Write('введите имя входного файла : ');
       ReadLn(inf);
       Write('введите имя выходного файла : ');
       ReadLn(outf);
       Write('начальная позиция (1-26): ');
       ReadLn(start);
       Write('кодировать или декодировать (C or D): ');
       ReadLn(ch);
       if upcase(ch)='C' then code(inf, outf, start)
       else if upcase(ch)='D' then decode(inf,outf,start);
     end.