Организовать меню для работы с типизированными файлами

program massiv_variant2;
var
const fileName = 'a.dat';
a [1..10] array of intger;
f:file of integer;
var x: integer;
begin
Assign(f, fileName);
  if FileExists(fileName) then
  read(f, x); 
  write(f, x+1, x+2);
  write(f, 7); 
Close(f);
end;
  begin
    Reset(f);
    Seek(f, FileSize(f));
  end
  else
    Rewrite(f);
  write(f, 0);
  Close(f);
end;
Reset(f);
 read(f, x);
 Close(f);
except
writeln('Файл не существует');
end;
end;
end.

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.