Две задачи на про цедуры и финкции по Turbo Pascal (помогите,пожалуйста)

[GordonF]

Спасибо огромное!)
Парни,вот есть еще один вопрос..задачка,ну никто не знает как сделать..со многими разговаривал..а очень нужно)

Использовать подпрограммы (ввода, вывода, обрабатывающей части). Дан массив целых чисел A[M,N], где M,N<=10. Вставить последнюю стоку после строки, в которой находится заданное число К.

[Хыиуду]

1. Пройти в цикле по массиву, найти строку с числом К. Пусть она будет с номером А.
2. Все строки, начиная с М, кончая А+1 включительно, перенести на 1 вниз. Т. е. в М+1 строку копируется М-я, в М-ю - М-1-я и т.д.
3. В А+1-ю строку копируется М+1-я