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

[Bargest]

Не пойму, что надо. По какой переменной case? При каких значениях какая функция вызывается?
Общий вид:

Код:

case i of
1: InpuMatrix;
2: inputmatrix;

Только вот функции тут не за чем. Лучше процедуры, если сразу в глобальные переменные пишешь.

Код:

procedure InpuMatrix;
...
procedure inputmatrix;
...