Массив, процедура

[Sweet-_-Orange]

помогите решить
Есть описание данных
type
var m:mas;
mass:array [1..4, 1..5] of byte
вообщем должно быть 4 строчки, в каждой по 5 цифр
1 строчка 2,4,6,8,10
2 строчка 12,14,16,18,20
и так далее
и надо все это сделать в процедуре Proc1

type
  var m:mas;
  mas:array [1..4, 1..5] of byte;
  Procedure Proc1(i:integer);
  m:mas=((Ryadok1'2,4,6,8,10'),
         (Ryadok2'12,14,16,18,20'),
         (Ryadok3'22,24,26,28,30'),
         (Ryadok4'32,34,36,38,40')).
 begin
 for i:=1 to 4 do;
 writeln;
 readln;
end.

[Alex11223]

и надо все это сделать

Дык сделать-то что надо?

[Sweet-_-Orange]

Сообщение от Alex11223

Дык сделать-то что надо?

ну нужно сделать, чтобы цифры были в ряды расположены через процедуру

[Alex11223]

for i := 1 to 4 do
    for j := 1 to 5 do
        mas[i, j] := 2 * j + 10 * (i-1);

[Sweet-_-Orange]

и чё?
ошибки выдает то, нужно к процедуру вызвать, помогите

[Alex11223]

Это основная часть — заполнение массива требуемым образом. Остальное уж сам допиши.

[Sweet-_-Orange]

вообщето я не знаю как процедуру вызвать, как в начале толком написать, поэтому прошу помощи написать код

[<Slavs>]

Если я правильно понял.. вот :

uses crt;
   var i,j:integer;
  Procedure Proc1(n,m:integer);
  var mas:array [1..4, 1..5] of integer;
  begin
   randomize;
   for n:=1 to 4 do
   begin
    for m:=1 to 5 do
     begin
     mas[n,m]:=random(50);
     write(mas[n,m]:4);
     end; writeln;
     end;
     end;
 begin
 Proc1(i,j);
end.

Ну, как-то так)

[Katus]

crt разве здесь нужен =S

[<Slavs>]

Сообщение от Katus

crt разве здесь нужен =S

Ну , хоч - убири)
просто я писал на Pascal ABC