Подправтье программу пожалуйтса

[VENOMIK]

Написал программу но не работает пишет ошибка проверки диапозона)Вот задание если что: Даны 3 массива символов. Определить какие символы входят в состав всех трёх массивов

Program VeNOM;
type
      massivx=array[1..5] of char;
      massivy=array[1..5] of char;
var
      n:integer;
      q:array[1..5] of char;
      x:massivx;
      y:massivy;
      z:array[1..5] of char;
      i:integer;
      j:integer;
procedure srav(x1:massivx; y1:massivy; i:integer; j:integer; var q:array of char; n:integer);
begin
      n:=0;
      for i:=1 to 5 do
      for j:=1 to 5 do
      if x1[i]=y1[j] then begin n:=n+1;
      q[i]:=x[i];
      end;
end;
begin
     writeln('vvedite 1 massiv');
     for i:=1 to 5 do readln(x[i]);
     writeln('vvedite 2 massiv');
     for i:=1 to 5 do readln(y[i]);
     writeln('vvedite 3 massiv');
     for i:=1 to 5 do readln(z[i]);
     srav(x,y,i,j,q,n);
     for i:=1 to n do
     for j:=1 to 5 do if q[i]=z[j] then writeln('odinakvie simvol=>',q[i]);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Neobrat]

попробуй

procedure srav(x1:massivx; y1:massivy; i:integer; j:integer; var q:array of char; var n:integer);

[VENOMIK]

не получается он курсор ставит вот где(q[i]:=x[i]) в процедуре когда ошибка) что то в процедуре не правильно просто когда сравнивается 2 масива на наличие одинаковых эти символы записываются в q массив)

[Mad_Cat]

а размер массиву q в процедуре кто будет задавать?

[VENOMIK]

а в каком именно месте в процедуре? просто указывается только тип массива

[Mad_Cat]

а в каком именно месте

а хотя бы тут

q[i]:=x[i];

должно быть

q[n]:=x[i];

и массив обьявлен как

var q:array of char;

а где задание ему размера?

[Serge_Bliznykov]

VENOMIK

не надо создавать одни и те же темы!
Это называется КРОССПОСТИНГ!
И это нарушение правил!

Ваша тема находится вот здесь:
Даны 3 массива символов. Определить какие символы входят в состав всех трёх массивов