Массивы Паскаль

[Рітка-кулеметчиця]

Ребата если ви свободни помогите з прогою пожалусто паскалю.
И подскажите где можна скачать задачник по турбо паскалю бо я в ньом повний ноль, и если можите напишите об'яснения к каждому действию
В двухмерный массив должны были записать оцен-
ки каждого из 23 учеников класса по двенадцати предметам
(в первом столбце — по первому предмету, во втором — по
второму и т. д.), но по ошибке забыли вписать в массив оцен-
ки еще по одному предмету, который должен быть в перечне
в s-м столбце. Изменить массив так, чтобы он был заполнен
надлежащим образом. Оценки по новому предмету вводят-
ся с клавиатуры и в дополнительный массив записываться
не должны.

program zadum6;
uses crt;
const n=23;
m=12;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(5);
writeln ('vvedite s:');
readln(s);
writeln ('vvedite ocenki:');
for i:=1 to n do
readln(a[i,s]);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6);
writeln;
end;
readln;
end.

Нада зделать так чтоб прошлий массив оставалса и добавлялса s-й столбец з оценками которые забили вписать.

[alex_fcsm]

uses crt;
const n=23;
      m=12;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
for i:=1 to n do
begin
for j:=1 to m-1 do
begin
a[i,j]:=2+random(4);
write(a[i,j]:6);
end;
writeln;
end;
writeln ('vvedite s:');
readln(s);
for i:=1 to n do
 for j:=m downto s+1 do
  a[i,j]:=a[i,j-1];//сдвигаем все оценки вправо
writeln ('vvedite ocenki:');
for i:=1 to n do
readln(a[i,s]);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6);
writeln;
end;
readln;
end.