program pole_3;
{$M $4000,0,0}
uses crt,dos;
label 1,2;
 procedure po;
  begin
    SwapVectors;
    Exec('z:\deniss\pole3\pole.exe','');
    SwapVectors;
  end;
 procedure kalt;
  begin
    SwapVectors;
    Exec('c:\tools\rkalt.com', '');
    SwapVectors;
  end;

   var
   ch,stroka:string;
   fff:text;
   begin
    kalt;
       begin
         clrscr;
         assign(fff,'start.txt');
         reset(fff);
         while not EOF(fff) do
           begin
             readln(fff,stroka);
             writeln('    ',stroka);
           end;
         close(fff);
         readln;
       end;
      begin
      2:po;
        textmode(co80);
      1:write('Заверщить программу? y/n ');
        readln(ch);
        if (ch<>'n') and (ch<>'y') then begin clrscr; goto 1;end;
        if ch='n' then goto 2;
      end;
   end.