Программа на паскале! Помогите(бесплатно)

Здравствуйте уважаемые пользователи и знатоки Паскаля! Прошу вас помочь мне! Дана задача: Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). После столбца матрицы с номером K вставить столбец из единиц. Нужно написать программу на паскале(бесплатно)! Программа написана, только в ней есть ошибки! Просьба посмотреть код программы и исправить ошибки! Заранее Спасибо ВАМ!!! Код: Program p75 (Input, Output); uses crt; Type Matr = Array [1..10, 1..10] Of Integer; Var X : Matr; i, j : Integer; N,F, M : Integer; Begin Clrscr; WriteLn('PASCAL: Ydalenie stroki iz matricy.'); WriteLn ('Bbedite vvodnie dannie: '); WriteLn ('Chislo strok matricy (<=10): ' ); ReadLn (N); WriteLn ('Chislo stolbcov matricy (<=10): ' ); ReadLn (F); WriteLn ('Vvedite matricy:'); For i := 1 To N Do For j := 1 To F Do Begin Write ('X[', i: 2, ',', j: 2, '] = '); ReadLn (X [i, j] ) End; Write ('Vvedite nomer pozicyy K: '); ReadLn (M); If 1<=M then begin If M<=N then begin For i := 1 To N Do For j:= M To (F+1) Do X [ i , j ] := X [ i , j ]; WriteLn ('Matrica posle udalenia stroky: '); For i := 1 To N Do Begin For j := 1 To (F+1) Do Write (X [i, j] : 4); WriteLn; End;end else begin writeln; writeln('K ne sootvetstvuet trebuemim parametram');end; end else begin writeln; writeln('K ne sootvetstvuet trebuemim parametram'); end; Writeln; Writeln('Nazmite Enter dla vixoda'); ReadLn; End.