Паскаль--Подпрограмма

[Lyf4ever]

Здравствуйте!
У меня есть такая задача пп, там мне нужно из 2 двумер. массив составить одномер. массив, но я не знаю как выводить одномерный массив. Я там как то сделал но не получается! Он мне пишет что массив H[c] имеет другое кол-во размерностей, я вообще не понял
посмотрите что у меня тут не так!

Усл. задач
Для массивов А(3,3) и В(4,4) создать одномерный массив Н, в который входят элементы массива В, но не входят те элементы В, которые содержатся в А.

Program L7;
uses crt;
type mtx=array [1..10,1..10] of integer;
Var A,B,H:mtx; N:byte; i,j,e,k,c:integer;

Procedure vvod(Var A,B,H:mtx; var N:byte; d:char);
Begin
write('N='); readln(N);
for i:=1 to N do
for j:=1 to N do
begin
write (d,'[',i,',',j,']='); readln(A[i,j]);
end;
for e:=1 to N do
for k:=1 to N do
begin
write (d,'[',e,',',k,']='); readln(B[e,k]);
end;

end;



Function sozdat_odnom_massiv_H(A,B,H:mtx; N:byte):integer;
begin
for i:=1 to N do
for j:=1 to N do
begin
A[i,j]:=B[e,k];
for e:=1 to N do
for k:=1 to N do
if A[i,j]<>B[e,k] then
begin
B[e,k]:=H[c];
end;
end;
sozdat_odnom_massiv_H:=H[c];
end;

Procedure vivod_odnom_massiv_H(Var A,B,H:mtx; var N:byte; d:char);
begin
For c:=1 to N do
begin
write(H[c]:2);
end;
end;

Begin
vvod(A,B,H,N,'A','B','H');
sozdat_odnom_massiv_H:=H[c](H,N);
vivod_odnom_massiv_H(A,B,H,N,'A','B','H');
End.

[Sazary]

uses crt;
type matrix = array[1..10,1..10] of integer;
vector = array[1..100] of integer;

var
A,B : matrix;
H : vector;
Am,An,Bm,Bn,Hn : integer;


procedure vvod(var A : matrix; var M,N : integer);
var i,j : integer;
begin
write('Vvedite kolichestvo strok: ');
readln(M);
write('Vvedite kolichestvo stolbcov: ');
readln(N);
for i:=1 to M do
 begin
 for j:=1 to N do
  A[i,j] := random(50);
 end;
end;

procedure getVect(A : matrix; Am,An : integer; B : matrix; Bm,Bn : integer; var H : vector; var M : integer);
var i,j,k,l : integer;
fl : boolean;
begin
M := 0;
 for i:=1 to Bm do
  for j:=1 to Bn do
   begin
   fl := true;
   for k:=1 to Am do
    begin
    for l:=1 to An do
     if B[i,j] = A[k,l] then
      begin
      fl := false;
      break;
      end;
    if not fl then break;
    end;
   if fl then
    begin
    inc(M);
    H[M] := B[i,j];
    end;
   end;
end;

procedure print(A : matrix; M,N : integer);
var i,j : integer;
begin
for i:=1 to M do
 begin
 for j:=1 to N do
  write(A[i,j]:4);
 writeln;
 end;
writeln('---------------');
end;

procedure printVector(H : vector; N : integer);
var i : integer;
begin
for i:=1 to N do
 write(H[i]:4);
writeln;
end;

begin
clrscr;
writeln('Matrix A: ');
vvod(A,Am,An);
writeln('Matrix B: ');
vvod(B,Bm,Bn);
print(A,Am,An);
print(B,Bm,Bn);
getVect(A,Am,An,B,Bm,Bn,H,Hn);
printVector(H,Hn);

readln;
End.

[Lyf4ever]

Спасибо большое! Еще 1 такой вопрос. А как сделать чтобы можно напечатать в программу элемента массива, не "random" !!!

[Sazary]

А как сделать чтобы можно напечатать в программу элемента массива, не "random" !!!

Ну так просто замените ручным вводом. Мне просто неохота было вручную вбивать 25 элементов.
Какая разница-то, откуда брать числа..

[Arkuz]

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

Спасибо большое! Еще 1 такой вопрос. А как сделать чтобы можно напечатать в программу элемента массива, не "random" !!!

procedure vvod(var A : matrix; var M,N : integer);
var i,j,num : integer;
begin
write('Vvedite kolichestvo strok: ');
readln(M);
write('Vvedite kolichestvo stolbcov: ');
readln(N);
for i:=1 to M do
 begin
 for j:=1 to N do
  write("A[i,j] = ");
  readln(num);
  A[i,j] := num;
 end;
end;

[Lyf4ever]

большое спасибо за помощь. вы очень помогли

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

Ну так просто замените ручным вводом. Мне просто неохота было вручную вбивать 25 элементов.
Какая разница-то, откуда брать числа..

Если не требовали, я бы тоже поставил random!!