[Dotam]

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

Код:

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}

Это рандом

Код:

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
жду совета.