Вставить проги в меню

program menju;
uses crt;
label 9;
 
var  o,u: integer; s:string;
i,n,t,j:integer;
k:char;
mas:array[1..120]of char;
 
type
  arr = array[1..10, 1..10] of integer;
 
var
  A,result: arr;{обрабатываемый массив}
  X,m: integer;
 
procedure CreateRandomArray(n, m: integer);{функция создает массив NxM; 1<=N,M<=10}
var
  i, j: integer;
begin
randomize;
writeln('ishodnii massiv');
  for i := 1 to n do
  begin;
  writeln;
    for j := 1 to m do
      begin;
      a[i, j] := random(100);
      write(a[i,j],' ');
      end;
    end;
readln;
end;
 
procedure CreateFile(fname: string; a: arr; n, m: integer);{Cоздает файл согласно задаче}
var
  i, j: integer;
  f: file of integer;
begin
  writeln('na4alo zapisi v fail');
  assign(f, fname);
  rewrite(f);
  for i := 1 to n do
    for j := 1 to m do
      if a[i, j] mod x = 0 then write(f, a[i, j]);
  close(f);
  writeln('fail yspeshno zapisan');
  readln;
end;
 
procedure WriteFile(fname: string);{выводит файл согласно задаче}
var
  f: file of integer;
  k, i: integer;
begin
  writeln('4tenie iz faila');
  assign(f, fname);
  reset(f);
  for i := 1 to filesize(f) do
  begin
    read(f, k);
    write(k, ' ');
  end;
  close(f);
  writeln;
  writeln('4tenie zaversheno');
  readln;
end;
 
begin
9: begin
clrscr;
textcolor(green);
writeln;
writeln ('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
writeln ('@ 1.Сведения об авторе                                                         @');
writeln ('@ 2.Условие задачи 1                                                           @');
writeln ('@ 3.Программа, решение задачи 1                                                @');
writeln ('@ 4.Условие задачи 2                                                           @');
writeln ('@ 5.Программа, решение задачи 2                                                @');
writeln ('@ 6.Выход                                                                      @');
writeln ('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
writeln;
writeln ('нажмите клавишу с № меню и ENTER');
READLN (o);
end;
case o of
1: begin
clrscr;
writeln ('Программа составлена');
writeln ('студентом 2(второго) курса');
writeln ('Инженерно-педагогического факультета');
writeln ('Группы 109359');
writeln ('Германчуком Владиславом Сергеевичем');
writeln;
writeln ('Для возврата в меню нажмите 9 и ENTER');
readln (u);
if u = 9
then goto 9;
end;
2: begin
clrscr;
writeln ('Текст условия задачи:');
writeln ('Дан массив слов.');
writeln ('Из слов, которые начинаются на данную букву составить новый массив.');
writeln;
writeln ('Для возврата в меню нажмите 9 и ENTER');
readln (u);
if u = 9
then goto 9;
end;
3: begin
begin;
clrscr;
textcolor(green); {задаем оформление}
writeln('vvedite text');
readln(s); {вводится текст}
s:=s+' ';   {в конце добавляется пробел}
writeln;
writeln('vvedite bukvy');
readln(k);  {вводится буква, по которой будет происходить сортировка}
n:=length(s);   {вычисляется длина строки s, из которой будет происходить выборка}
 
for i:=1 to n-1 do
    begin;
    if (s[i]=k) and ((s[i-1]=' ') or (i=1)) then {проверка слова по букве и является ли буква первой в слове}
       begin;
             j:=i;  {отмечаем положение начала слова в строке}
             repeat
             t:=t+1;    {начинаем наматывать счётчик}
 
             mas[t]:=s[j]; {вводим в массив нужное нам слово}
             j:=j+1;
             until
             s[j]=' ';  {ввод заканчивается, когда следующий элемент - пробел, т.е. конец слова}
             mas[t+1]:=' '; {добавляем в массив пробел для читабельности}
             t:=t+1;        {передвигаем маркер за пробел}
 
       end;
 
    end;
writeln('vivod massiva dannix:');
for i:=1 to 120 do
    write(mas[i]);  {выводим массив}
readln;
end;
writeln;
writeln ('Для возврата в меню нажмите 9 и ENTER');
readln (u);
if u =9
then goto 9;
end;
4: begin
clrscr;
writeln ('Текст условия задачи:');
writeln ('Дан двумерный массив,который содержит не более 10 строк и не более 10 стобцов.');
writeln ('Создать файл данных, элементами которого являются числа исходного массива, которые кратны заданному числу х.');
writeln ('Ввести на экран заданный файл.');
writeln;
writeln ('Для возврата в меню нажмите 9 и ENTER');
readln (u);
if u = 9
then goto 9;
end;
5: begin
begin
clrscr;
  textcolor(green);
  writeln('vvedite razmernost'' matrici');
  read(n, m);{размеры массива}
  CreateRandomArray(n, m);{создание случайного массива}
  writeln;
  writeln('vvedite x');
  read(X);{ввод X}
  CreateFile('file.dat', a, n, m);{создание файла}
  WriteFile('file.dat');{и его чтение}
  readln;
 
end;
writeln;
writeln ('Для возврата в меню нажмите 9 и ENTER');
readln (u);
if u = 9
then goto 9;
end;
6: begin
clrscr;
writeln ('Работа завершена');
 
 
 
exit;
end;
end;
end.

Program zadacha1;
  Uses Crt;
  Var a,b: Array[1..50] of String;
      s:String;
      i,n,j,c:Integer; k:char;
BEGIN
  ClrScr;
  c:=0;
  Write('Количество слов в массиве: ');
  ReadLn(n);
  Write('Введите букву: ');
  ReadLn(k);
  For i := 1 to n do
    begin Write(i, '-ое слово : ');
          Readln(a[i]);
          s:=a[i];
    if s[1]=k then
    begin
     c:=c+1;
     b[c]:=s;
    end;
    end;
          Writeln;
     if c=0 then write('Таких слов нет')
          else
   begin
     Writeln;
     Writeln('Слова начинающиеся на заданную букву');
      For  i:= 1 to c do
      write(b[i],' ');
   end;
      ReadLn
END.

{В университете n<=10 факультетов. Известен план приема студентов
на каждый факультет и число поданных заявлений. Определить конкурс на каждый факультет.
Из этих данных составить файл записей. Вывести на экран созданный файл. }
program a2;
Uses crt;
type zap=record
     fakul: string;
     pl,zwl:integer;
     kn: real;
     end;
var g:file of zap;
    z:zap;
    i,n:integer;
Begin
Writeln ('Сколько в университете факультетов?');
Readln (n);
Assign (g,'c:/zadacha 2-1.dat');
Rewrite (g);
For i:= 1 to n do
Begin
Writeln ('ввести название ',i,'факультета');
Readln (z.fakul);
Writeln ('ввести план приема');
Readln (z.pl);
Writeln ('ввести число поданных заявлений');
Readln (z.zwl);
z.kn:=z.zwl/z.pl;
Write(g,z);
End;
Close (g);
End.

{В университете n<=10 факультетов. Известен план приема студентов
на каждый факультет и число поданных заявлений. Определить конкурс на каждый факультет.
Из этих данных составить файл записей. Вывести на экран созданный файл. }
program a3;
Uses crt;
type zap=record
     fakul: string;
     pl,zwl:integer;
     kn:real;
     end;
var g,f:file of zap;
    z:zap;
    kn:real;
    s,i: Integer;
Begin
Assign (g,'c:\zadacha 2-1.dat');
Reset (g);
Assign(f,'c:\zadacha 2-2.dat');
rewrite(f);
while not (eof (g)) do
begin
read(g,z);
write (f,z);
end;
close(g);
close(f);
 
Assign(f,'c:\zadacha 2-2.dat');
reset(f);
while not (eof (f)) do
begin
read(f,z);
writeln(z.fakul);
writeln(z.pl);
writeln(z.zwl);
writeln(z.kn);
end;
close (f);
end.