Типизированный файл и массивы

[Otar4ik]

Среда:Pascal ABC.NET
Задача:Реализовать программу с текстовым или графическим интерфейсом. В программе должно быть несколько процедур и как минимум одна функция (желательно каждый пункт меню реализовать в виде отдельной подпрограммы).
В программе обязательно должен быть пункт меню "Выход".
Обязательно необходимо обрабатывать исключения.
Во всех вариантах сделать пункт меню "Запись в позицию" и "Чтение позиции" - пользователь вводит номер элемента файла на место которого он хочет записать значение или прочитать значение.
Также обязательно добавить пункт меню "Печать файла" - происходит вывод содержимого файла

Дан одномерный массив вещественных чисел из 10 элементов. При запуске программы выводится меню: 1 - заполнить массив случайными числами, 2- ввести элементы массива с клавиатуры, 3-найти сумму элементов массива, 4 - записать элементы массива и сумму в файл.

Одна из ошибок - пишет встречено end а нужно begin.
2-ая если я закомментю-программа запускается и висит,видать что-то внутреннее.

Код:

program variant_2;
uses crt;
var
a:array[1..10] of real;
i,s:integer;
f:file of real;
minind:real;
k:byte;

procedure menu2(var n: integer);
Const K=10;
var
StrMenu: array [1..k] of string [20]:=
('1.random_array'
'2.add_array'
'3.find_min'
'4.write_min'
'5.write_position;
'6.read_position;
'7.print_file;
'8.exit');
begin
end;

procedure random_array;
begin
randomize;
for i:=1 to 10 do 
begin
a[i]:=random(10);
write(a[i],'');
end;
end;

procedure add_array;
begin
for i:=1 to 10 do
begin
writeln('Введите ',i,'й элемент массива:');
readln(a[i]);
end;
end;

procedure find_min;
begin
 min := a[1]; 
  minind := 1;
  for var i:=2 to N do
    if a[i]<min then 
    begin
      min := a[i];
      minind := i;
    end; 
    end;

//procedure write_position;///
//begin//
//end;//

procedure read_position;
begin
  reset(f);
  Seek(f,ch.Value);
  Write(f,ch.Value);
end;

procedure print_file;
begin
assign(f, 'c:\test.txt');
reset(f);
   while not eof(f) do
   begin
      readln(f,s);
      reads(s,p);
      print(p);
      p^.next:=h;
      h:=p;
   end;
   a:=i;
   while a<>i do
   begin
     print(f);
     f:=f^.next;
   end;
   end;
   
 procedure exit;
 begin
 reset(f);
 close(f);
end;
end.

[Stilet]

встречено end а нужно begin.

Правильно пишет. Процедуры есть а главного begin нет.

2-ая если я закомментю-программа запускается и висит,видать что-то внутреннее.

Отладчиком конечно не прошелся?