Ввести массив W размерностью 4*2 из целых чисел с помощью типизированных констант,массив U из 5 вещественных чисел из файла и массив V из 8 псевдослучайных чисел от 7,0 до 8,0. Найти максимальный элемент M массива W. Вывести в файл U, V, W, M.


program f1;
uses crt;

const w:array[0..3,0..1] of byte= ((1,2),(5,6), (3,5),( 5, 7));
var fa, fb:text;
v_array:array[0..7] of real;
u_array:array[0..4] of real;
i,j,max:integer;
begin
clrscr;
randomize;
Assign(fa, 'fa.txt');
reset(fa);
Assign(fb, 'fb.txt');
rewrite(fb);
for i:=0 to 7 do
v_array[i]:=7+random;

for i:=0 to 4 do
read(fa, u_array[i]);

max:=w[1,1];
for i:=0 to 3 do
for j:=0 to 1 do
if max<w[i,j] then
max:=w[i,j];

writeln(fb,'Massiv U:');
for i:=0 to 4 do
write(fb,u_array[i]:5:2);
writeln(fb,'');
writeln(fb,'Massiv V:');
for i:=0 to 7 do
write(fb,v_array[i]:5:2);
writeln(fb,'');
writeln(fb,'Massiv W:');
for i:=0 to 3 do
begin
for j:=0 to 1 do
write(fb,w[i,j]:4);
writeln(fb,'');
end;
writeln(fb,'');
write(fb,'max=',max);
close(fa);
close(fb);
readln;
end.


Я ничего в этом не понимаю, но мне завтра нужно это ответить =(