program vymena;
type
  vektor = array [1..10] of integer;
var
  m,k,l:integer;
  v,novy_v:vektor;
procedure nacti(x:integer;var vekt:vektor);
var
  i:integer;
begin
  writeln('Zadej jednotlive prvky vektoru:');
  for i:=1 to x do
    readln(vekt[i]);
end;
procedure uprav (o,p,n:integer;vekt:vektor;var nv:vektor);
var
  i,pom:integer;
begin
  writeln('Je treba vymenit radek cislo ',o,' s radkem cislo ',p);
  writeln;
  for i:=1 to n do
    nv[i]:=vekt[i];
  pom:=nv[o];
  nv[o]:=nv[p];
  nv[p]:=pom;
end;
procedure vypis(x:integer;vekt:vektor);
var
  i:integer;
begin
  for i:=1 to x do
    write(vekt[i]:4);
end;
begin
  writeln('Zadej rozmer vektoru:');
  readln(m);
  nacti(m,v);
  writeln('Zadej prvni radek urcene pro vymenu:');
  readln(k);
  writeln('Zadej druhy radek urcene pro vymenu:');
  readln(l);
  uprav(k,l,m,v,novy_v);
  vypis(m,novy_v);
  readln;
end.