uporyadka massiva (pascalabc.net)

[sohibnut]

privet u menya takoy je problema:
coctavit iz dvux tablic 3- uporyadocennuyu po vozrast



var a,V:array [1..2,1..100] of real;

n,j,k,C,X,Y:integer;MN:REAL;
begin
writeln('CISLO ELEMENTOV');
readln(n);
for j:=1 to 2 do
for k:=1 to n do
begin
write(J,'- MASSIV ,',K,'-ELEMENT=');
READLN(A[J,K]);

END;MN:=A[1,1];
C:=0; WHILE C<2*N DO BEGIN
FOR J :=1 TO 2 DO
FOR K:=1 TO N DO
IF (MN>A[J,K]) AND (V[J,K]=0) THEN BEGIN MN:=A[J,K]; X:=J; Y:=K; END;
C:=C+1;
WRITELN(A[X,Y]); V[X,Y]:=1;
FOR J :=1 TO 2 DO
FOR K:=1 TO N DO
IF (MN<A[J,K]) AND (V[J,K]=0) THEN MN:=A[J,K];
END;

END.





no eto ne rabotaet