Готовая программа

Program Zavdanya_3;
Uses crt;
Type masiv=array[1..10000]of Integer;
Var F,f1:file of integer;
    y,R:byte;
Procedure Stvorenna_file (var F:file of integer);
          var x:integer;
              i,n:integer;
          Begin rewrite (F);
                Write ('Ñòâîðåííî ôàéë ç ðîçì³ðí³ñòòþ: ');
                read (n);
                For i:=1 To n Do
                Begin x:=Random(100)-50;
                Write (f,x); End;
                Close (F);
                writeln;
                write('Ôàéë ñòâîðåíî!');
                End;
Procedure Pereglad_file (var F:file of integer);
          var x:integer;
          Begin reset (F);
                Write ('Âì³ñò ôàéëó:  ');
                While not eof(f) do
                begin read (f,x);
                      write (x,'    ');
                End;
                Writeln;
                Writeln;
                Write ('Ôàéë ïðî÷èòàíî ïîâí³ñòþ');
                close (F);
          End;
Procedure Dopovnenna_file (var F:file of integer);
          Var x,a,i:integer;
          Begin reset (f);
                seek (f,filesize(f));
                write ('Ââåä³òü ê³ëüê³òü åëåìåíò³â íà ÿêó  òðåáà çá³ëüøèòè ôàéë: ');
                Read (a);
                For i:=1 To a Do
                Begin x:=random(100)-50;
                      write (F,x);
                End;
                close (f);
                end;
Procedure Vulychenna_10 (var F:file of integer);
          Var Q:masiv; x:integer;
              a,b,c,i,v,p:integer;
          Begin
          i:=1; reset (f);
 
                While not eof(f) do
                begin Read (F,x);
                write(x,' ');
                If (x mod 7)=0 Then i:=i*x;
                End;
                writeln;
                 if i=1 then writeln('×èñåë êðàòíèõ 7 íåìàº')
                 else
                 writeln('Äîáóòîê: ',i);
                Close (F);
                          End;
Begin Assign (F,'Zavdanya_3.txt');
      Repeat
      Write('--------------------------------------------------------------------------------');
      Write ('                                Ãîëîâíå ìåíþ');
      Writeln;
      Writeln ('1 - Ñòâîðåííÿ ôàéëó');
      Writeln ('2 - Ïåðåãëÿä ôàéëó');
      Writeln ('3 - Äîïîâíåííÿ Ôàéëó');
      Writeln ('4 - Âèâåñòè äîáóäîê ÷èñåë ÿê³ êðàòí³ ÷èñëó 7');
      Writeln ('0 - Çàê³í÷èòü ïðîãðàìó');
      Write('--------------------------------------------------------------------------------');
      Write ('Ââåä³òü îäèí ³ç ïóíêò³â ãîëîâíîãî ìåíþ: ');
      Read (r);
      Case r of
      1:Stvorenna_file (F);
      2:Pereglad_file (F);
      3:Dopovnenna_file (f);
      4:Vulychenna_10 (F);
      0:Writeln ('ʳíåöü ïðîãðàìè');
      End;
      Writeln;
      Until r=0;
End.