[Dotam]

у меня возникла трудность, нужно в оператор case of запихнуть две функции заполнения массива (ввод с клавы, и случайными числами и массив как константа. как это сделать выбивает кучу ероров как написать правильно (простите, но case of я не знаю вообще и не по литературе около недели бился) помогите вот эти функции и константа.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

function InpuMatrix():mas;    var    a:mas;   x:integer; begin   Randomize;    for x:=1 to 10 do    begin    a[x]:=random(20)-10;    writeln(a[x]);    {writeln(a[i,x]);}    end;{1}    InpuMatrix:= a; end;{2}

Это рандом

Код:

1 2 3 4 5 6 7 8 9 10 11

function inputmatrix():mas var   a:mas;   i:integer; begin     for i:=1 to 10 do     begin       write('a[',i,']','=');       readln(a[i]);     end; end.

ввод с клавы
константу не скину потерял.
П.С. первый курс Первый семестр пишу в console aplication
жду совета.