Программа на массивы

[Trixik]

Помогите написать программу на Паскале.

Ввести массив А из 7 целых чисел из файла, массив B из 9 псевдослучайных чисел от 1,0 до 2,0 и массив С размерности 5х2 из вещественных чисел с помощью типизированных констант. Найти
максимальный элемент М массива А. Вывести в файл А, B, С и М.

[p51x]

В чем именно затруднения?

[Trixik]

Не понимаю как ввести массив B из 9 псевдослучайных чисел от 1,0 до 2,0 и массив С размерности 5х2 из вещественных чисел с помощью типизированных констант.

Про остальное догадываюсь, если будут ещё вопросы я напишу.

[p51x]

srand((unsigned)time(NULL));

for(unsigned char c = 0; c < 9; ++c){
  a[i] = (double)rand() / (RAND_MAX + 1) + 1;
}

[Trixik]

Попробовал написать так, но чтото она не работает. Помогите исправить ошибки.

program lab1;
uses crt;
var fa, fb:text;
  A_array:array[0..6] of byte;
  B_array:array[0..8] of real;
  i,j,max:integer;
const C:array[0..4,0..1] of real;
begin
clrscr;
randomize;
  Assign(fa,'D:\13-101\A.fa'),reset(fa);
  Assign(fb,'D:\13-101\A.fb'),rewrite(fb);
for i:=0 to 6 do
read(fa, A_array[i]);

for i:=0 to 8 do
B_array[i]:=8+random;
max:=M[1,1];
for i:=0 to 4 do
for j:=0 to 1 do
if max<M[i,j] then
max:=M[i,j];

writeln(fb,'Massiv A:');
 for i:=0 to 6 do
write(fb,A_array[i]:5:2);
writeln(fb,'');
writeln(fb,'Massiv B:');
 for i:=0 to 8 do
write(fb,B_array[i]:5:2);
writeln(fb,'Massiv M:');
 for i:=0 to 4 do
  begin
   for j:=0 to 1 do
   write(fb,M[i,j]:4);
   writeln(fb,'');
  end;
writeln(fb,'');
write(fb,'max=',max);
close(fa);
close(fb);
readln;
end.

Подскажите кто-нибудь в чём у меня ошибки?