С помощью генератора случайных значений сформировать три массива

uses crt;
const nmax=20;{максимальный размер массива}
type Tmas=array[1..nmax]of real;{тип массива}
procedure Vvod(var x,k:byte;var ms:Tmas;ch:char);{создание массива, размер, коэфф. для генерации чисел, массив, символ-имя массива}
var i:byte;
begin
repeat
write('Razmer massiva ',ch,': ');
readln(x);
until(x>0)and(x<=nmax);{размер-положительное число не более 20}
repeat
write('Znachenie dlya rascheta chisel: ');
readln(k);
until k>5;{коэффициент больше 5}
for i:=1 to x do
ms[i]:=5*k*random-3*k;{вещественные числа в диапсзоне [-3k,2k]}
end;
procedure Vyvod(x:byte; var ms:Tmas;ch:char);{вывод масива на экран}
var i:byte;
begin
writeln('Massiv ',ch);
for i:=1 to x do
write(ms[i]:6:2);{по 6 позиций под число, 2 знака после запятой}
writeln;
writeln;
end;
function SumPol(x:byte;ms:Tmas):real;{функция определения суммы положительных}
var i:byte;
    sm:real;
begin
sm:=0;
for i:=1 to x do
if ms[i]>0 then sm:=sm+ms[i];{если положитедьные, складываем}
SumPol:=sm;
end;
var a,b,c:Tmas;{три массива}
    na,nb,nc,m:byte;{их размеры, коэффициент}
    nm:char;{символ-имя массива}
    max:real;{максимальная сумма}
begin
clrscr;{очищаем экран}
Vvod(na,m,a,'A');{создаем три массива}
Vvod(nb,m,b,'B');
Vvod(nc,m,c,'C');
clrscr;{очищаем экран от ввода}
Vyvod(na,a,'A');{выводим массив}
writeln('Summa polozitelnyh=',SumPol(na,a):0:2);{выводим сумму положительных}
writeln;
Vyvod(nb,b,'B');
writeln('Summa polozitelnyh=',SumPol(nb,b):0:2);
writeln;
Vyvod(nc,c,'C');
writeln('Summa polozitelnyh=',SumPol(nc,c):0:2);
writeln;
max:=SumPol(na,a);{пусть макс. сумма в массиве А}
nm:='A';
if SumPol(nb,b)>SumPol(na,a) then{если В больше, то он макс}
    begin
      max:=SumPol(nb,b);
      nm:='B';
    end;
if SumPol(nc,c)>SumPol(nb,b) then{если С больше, то он макс}
    begin
     max:=SumPol(nc,c);
     nm:='C';
    end;
writeln('Max summa pol=',max:0:2,' v massive ',nm);
readln
end.