Помогите решить задачу на паскале: в двумерном массиве хранятся результаты (время в минутах), показанные каждым из 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.