[PASCAL] Tablice dwuwymiarowe

Witam wszystkich, oto zadanie które mam do napisania.

Napisz program w Pascalu, który:
a ) stworzy tablice 10 x 10 liczb
b ) wypełnij ją losowymi wartościami z zakresu [-10, +10]
c ) wszystkie nieparzyste liczby w tej tablicy zamieni na 0


To co udało mi się napisać poniżej:
Program tablice;
uses Crt;
var
tablica:array[1..10,1..10]of integer;
i,j,x,y:byte;
begin
clrscr;
randomize;
writeln;
writeln('Rozmiar tablicy:10x10');
writeln('Liczby z zakresu od -10 do 10');
writeln;
writeln;
y:=10;
x:=10;
writeln('Losowo wypelnoina tablica');
writeln;
for i:=1 to x do begin
for j:=1 to y do begin { rozmiar tablicy i-wiersze, j-koumny}
tablica[i,j]:=random(21)-10; {wypelninie losowe}
write(tablica[i,j]:4); {wypisanie tablicy kazdy element na 4 polach}
end;
writeln;
end;
writeln;
{brak kodu}
readln;
end.