1. Program OdwrocWektory(output);
2. var
3. w1: array [1..10] of integer; //definiuje wektor w1 10cio elementowy, liczby calkowite
4. w2: array [1..10] of integer; //definiuje wektor w2 10cio elementowy, liczby calkowite
5. tmp: array [1..10] of integer; //definiuje wektor tmp 10cio elementowy, liczby calkowite
6. i: integer; // zmienna pomocnicza dla petli
7. begin // poczatek wykonywania programu
8.     for i := 0 to 9 do //petla wypelniajaca wektory, wartosci sa tutaj przykladowe w1(1-10) w2(11-20)
9.         begin // dajesz begin i end jesli chcesz wykonac wiecej niz jedna instrukcje w petli
10.            w1[ i ] := i+1 ;   //wypelnianie wektora 1
11.            w2[ i ] := i+11; //wypelnianie wektora 2
12.         end;
13.     writeln('Stan początkowy wektorów:'); // wyswietla tekst
14.     for i:= 0 to 9 do //petla od 0 do 9
15.       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
16.     for i := 0 to 9 do //petla odwracajaca kolejnosc wektorow
17.         begin
18.             tmp[i] := w1[9 - i]; // wektor pomocniczy, zapisuje w nim odwrocony wektor 1
19.             w1[i] := tmp[i]; // nastepnie zapisuje znowu wartosci w wektorze 1
20.             tmp[i] := w2[9 - i];  // do wektora pomocniczego, zapisuje teraz odwrocony wektor 2
21.             w2[i] := tmp[i]; //i wpisuje wartosci do wektora 2
22.         end;
23.     writeln('A teraz efekt odwrócenia obu wektorów:');
24.     for i:= 0 to 9 do
25.     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
26. end.