Program OdwrocWektory(output);
var
w1: array [1..10] of integer; //definiuje wektor w1 10cio elementowy, liczby calkowite
w2: array [1..10] of integer; //definiuje wektor w2 10cio elementowy, liczby calkowite
tmp: array [1..10] of integer; //definiuje wektor tmp 10cio elementowy, liczby calkowite
i: integer; // zmienna pomocnicza dla petli
begin // poczatek wykonywania programu
    for i := 0 to 9 do //petla wypelniajaca wektory, wartosci sa tutaj przykladowe w1(1-10) w2(11-20)
        begin // dajesz begin i end jesli chcesz wykonac wiecej niz jedna instrukcje w petli
           w1[ i ] := i+1 ;   //wypelnianie wektora 1
           w2[ i ] := i+11; //wypelnianie wektora 2
        end;
    writeln('Stan początkowy wektorów:'); // wyswietla tekst 
    for i:= 0 to 9 do //petla od 0 do 9
      writeln('Dla indeksu w1[',i,'] = ', w1[i], ' oraz w2[',i,']= ', w2[i]); // wyswietla tekst, odlicza indeksy i dla kazdego indeksu wyswietla zawartosc wektora 1 i wektora 2
    for i := 0 to 9 do //petla odwracajaca kolejnosc wektorow
        begin
            tmp[i] := w1[9 - i]; // wektor pomocniczy, zapisuje w nim odwrocony wektor 1
            w1[i] := tmp[i]; // nastepnie zapisuje znowu wartosci w wektorze 1
            tmp[i] := w2[9 - i];  // do wektora pomocniczego, zapisuje teraz odwrocony wektor 2
            w2[i] := tmp[i]; //i wpisuje wartosci do wektora 2
        end;
    writeln('A teraz efekt odwrócenia obu wektorów:');
    for i:= 0 to 9 do
    writeln('Dla indeksu (', i, ') w1 = ', w1[i], ' oraz w2= ', w2[i]); // wyswietla tekst, odlicza indeksy i dla kazdego indeksu wyswietla zawartosc wektora 1 i wektora 2
end.