Процедуры ввода, вывода, сортировки, составления

program cc;
type mas=array [1..10,1..10] of integer;
     vector=array [1..10] of integer;
     var A,B,C:mas; d:vector;
     i,j,n:integer;
procedure vvodA (n:integer; var x:mas);
begin
     writeln('Введите n');
     readln(n);
     randomize;
     for i:=1 to n do begin
     for j:=1 to n do begin
     x[i,j]:=random (10)-3;
     write (x[i,j]:4);
     end;
     writeln;
     end;
     writeln;
     end;
procedure vvodB (n:integer; var y:mas);
begin
     writeln('ўўҐ¤ЁвҐ n');
     readln(n);
     randomize;
     for i:=1 to n do begin
     for j:=1 to n do begin
     y[i,j]:=random (10)-3;
     write (y[i,j]:4);
     end;
     writeln;
     end;
     writeln;
     end;
procedure sostC (n:integer; x,y:mas; var z:mas);
begin
     for i:=1 to n do begin
     if ((i div 2)=0) then begin
     for j:=1 to n do
     z[i,j]:=x[i,j]; end
     else for j:=1 to n do
     z[i,j]:=y[i,j];end;
end;
procedure sostD (n:integer; z:mas; var v,p:vector; var s,k:integer);
begin
     s:=0;
     repeat
     writeln('введите номера столбцов');
     readln (p[k]);
     k:=k+1;
     until p[k]=0;
     while p[k]<>0 do begin
     if j=(p[k]) then
     if z[i,j]>0 then v[s]:=z[i,j];end;
     s:=s+1;
end;
procedure sortir (k:integer; var w:vector);
var q:integer;
begin
     for i:=1 to k-1 do
    for j:=k-1 downto i do
    if w[j]<w[j+1] then
    begin
    q:=w[j+1];
    w[j+1]:=w[j];
    w[j]:=q;   end;
end;
procedure vivod (k:integer; w:vector);
begin
for j:=1 to k do write(w[j],' ');
end;
begin
vvodA (n,A);
vvodB (n,B);
sostC (n,A,B);
vivod (n,D);
writeln;
sostD (n,C,D,p);
vivod (n,D);
writeln;
end.

  repeat
   writeln('vvedite stlobcy : ');read(p[k]);
    if (p[k] > n)
       then
            write('vvedite korrektniy nomer tolbca : ')
       else
            k := k + 1;
  until p[k] = 0;
 k := 0; 
  for i:=1 to n do
    for j:=1 to n do
        if (j = p[k] ) and
           (z[i,j] > 0)
           then
                begin
                     v[i_] := z[i,j]l
                     i_ := i_ + 1;
                end;

program cc;
type
 mas=array [1..10,1..10] of integer;
 vector=array [1..100] of integer;
var
 A,B,C:mas;
 d:vector;
 i,j,n,kol:integer;
 
procedure vvodAB(Var x:mas; n:integer);
begin
 randomize;
 for i:=1 to n do
   for j:=1 to n do
     x[i,j]:=random (10)-3;
end;
 
procedure print(Var x:mas; n:integer; s:char);
begin
 writeln('Ìàññèâ ',s);
 for i:=1 to n do
  begin
   for j:=1 to n do
     write (x[i,j]:4);
   writeln;
  end;
writeln;
end;
 
procedure sostC (Var n:integer; x,y:mas; var z:mas);
begin
 for i:=1 to n do
  begin
   if i mod 2=0 then
   for j:=1 to n do
    z[i,j]:=x[i,j]
   else
   for j:=1 to n do
    z[i,j]:=y[i,j];
   end;
end;
 
procedure sostD(Var z:mas; n:integer; var p:vector);
Var
 k,l:integer;
 b:array[1..100] of integer;
begin
repeat
 write('Ââåäèòå íîìåð íà÷àëüíîãî ñòîëáöà: ');
 readln(k);
until k in [1..n];
repeat
 write('Ââåäèòå íîìåð êîíå÷íîãî ñòîëáöà: ');
 readln(l);
until l in [1..n];
kol:=0;
repeat
 for i:=1 to n do
 begin
  if z[i,k]>0 then
  begin
   inc(kol);
   b[kol]:=z[i,k];
  end;
 end;
 inc(k);
until k>l;
p:=b;
end;
 
procedure sortirovka(Var w:vector; k:integer);
var
 q:integer;
begin
 for i:=1 to k-1 do
 for j:=i to k do
 if w[i]<w[j+1] then
 begin
  q:=w[j+1];
  w[j+1]:=w[i];
  w[i]:=q;
 end;
end;
 
procedure vivod(k:integer; w:vector);
begin
writeln;
for j:=1 to k do
 write(w[j],' ');
end;
 
begin
 repeat
  writeln('¢¢¥¤¨â¥ n');
  readln(n);
 until n in [1..10];
 vvodAB(a,n);
 Print(a,n,'A');
 vvodAB(b,n);
 Print(b,n,'B');
 sostC (n,A,B,C);
 Print(c,n,'C');
 sostD (C,n,d);
 vivod (kol,d);
 sortirovka(d,kol);
 vivod (kol,d);
 readln
end.