Pascal-задача на файлы, подпрограммы

[Tasha_no]

Создать файл, состоящий из заданного числа трехмерных массивов 2*2*2. Целочисленные элементы массивов получить от датчика random в диапазоне 1..10.
Каждый такой массив можно рассматривать как совокупность двух двумерных массивов,отвечающих значениям 1 и 2 первого индекса. Из созданного файла получить файл, который содержит исходные трехмерные массивы, два двумерных массива разложения и определители матриц- двумерных массивов, для которых величина хотя бы одного определителя лежит в заданном диапазоне величин.

* Нужно сделать tpu-модули,в которых будут: создаваться массивы, храниться имя типа

[Stilet]

Создать файл, состоящий из заданного числа трехмерных массивов 2*2*2. Целочисленные элементы массивов получить от датчика random в диапазоне 1..10.

Ну это не сложно:

unit Unit1;

interface

type arr=array[1..2,1..2,1..2] of integer;

  procedure crea(Appendd:boolean);
implementation
  procedure crea;
  var f:file of arr;  a:arr;
   q,w,e:integer;
  begin
   for q:=1 to 2 do
    for w:=1 to 2 do
     for e:=1 to 2 do a[q,w,e]:=random(9)+1;
    assign(f,'c:\temp\qq');
    if Appendd then begin reset(f); Seek(F, FileSize(F)) end
    else     rewrite(f);
    write(f,a);close(f);
  end;

end.

Вызов:

uses unit1;
begin
 crea(false);
 crea(true);
 crea(true);
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Tasha_no]

Мммм...спасибо,но это тока модуль.у меня есть нечто подобное,мне бы саму программу...

[Stilet]

это тока модуль

Ниче подобного.
Это модуль и главная программа. Почитай умные книги по паскалю и присмотрись.

[Tasha_no]

Я имела ввиду вообще всю программу,то задание, которое я вначале написала, а не под звездочкой...