Описать процедуру Swap (x,y) меняющую содержимое массивов х и у

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
procedure Swap(var x:mas;nx:integer;var y:mas;ny:integer;k:integer);
var i,b:integer;
begin
if (k>nx)or (k>ny) then
 begin
  if nx<ny then k:=nx
  else k:=ny;
 end;
for i:=1 to k do
 begin
  b:=x[i];
  x[i]:=y[i];
  y[i]:=b;
 end;
end;
var x,y:mas;
    nx,ny,k,i:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива X до ',nmax,' nx=');
readln(nx);
until nx in [1..nmax];
writeln('Исходный массив X:');
for i:=1 to nx do
 begin
  x[i]:=random(50);
  write(x[i]:4);
 end;
writeln;
repeat
write('Размер массива Y до ',nmax,' nx=');
readln(ny);
until ny in [1..nmax];
writeln('Исходный массив Y:');
for i:=1 to ny do
 begin
  y[i]:=random(50);
  write(y[i]:4);
 end;
writeln;
repeat
write('Количество обменов k>0 k=');
readln(k);
until k>0;
Swap(x,nx,y,ny,k);
writeln('После обмена:');
writeln('Массив X:');
for i:=1 to nx do
write(x[i]:4);
writeln;
writeln('Массив Y:');
for i:=1 to ny do
write(y[i]:4);
readln
end.

type z=array [1..20] of real;
 
var
  i,nx,ny,k:integer;
  x,y:z;
 
Procedure Swap(var u:z; sx:integer; var o:z; sy: integer; t: integer);
var
  j: integer;
  b: real;
begin
  if (t > sx) or (t > sy) then
  begin
    if sx < sy then t := sx
    else t := sy;
  end;
  for j := 1 to t do
  begin
    b := u[j];
    u[j] :=o[j];
    o[j] := b;
  end;
end;
 
begin
 
  write('Введите размер массива X:');
  read(nx);
  writeln('Введите массив X:');
    for i:=1 to nx do begin
  write('a[',i,']=');
  readln(x[nx]);
    end;
    
  write('Введите размер массива У:');
  read(ny);
  writeln('Введите массив Y:');
    for i:=1 to ny do begin
  write('a[',i,']=');
  readln(y[ny]);
    end;
 
 For j:=1 to 3 do begin
      writeln('Введите K обменов:');
      readln(k);
   
    Swap(x, nx, y, ny, k);
    
  writeln('После обмена:');
  writeln('Массив X:');
  for i := 1 to nx do
    write(x[nx]:4);
  writeln;
  writeln('Массив Y:');
  for i := 1 to ny do
    write(y[ny]:4);
   end;
end.