Помогите решить задачу на паскале:

в двумерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков на каждом из 10 этапов соревнований "Формула-1". После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.

Var

i, j:integer;

a:array[1 ... 12,1 ... 10]of integer;

begin

writeln ('Исходная таблица: ');

for i:=1 to 12 do

begin

for j:=1 to 10 do

begin

a[i, j]:=50+random (10);

write (a[i, j]:3);

end;

writeln;

end;

writeln;

for i:=5 to 12 do

for j:=1 to 10 do

a[i-1, j]:=a[i, j];

for j:=1 to 10 do a[12, j]:=0;

writeln ('Измененная таблица: ');

for i:=1 to 11 do

begin

for j:=1 to 10 do

write (a[i, j]:3);

writeln;

end;

end.