удаление строк.

program fra11;
uses crt;
var
   a: array [1..10,1..10] of integer;
   c: array [1..10,1..10] of integer;
   d: array [1..10,1..10] of integer;
   m,n,b,s,r,x,y,i,j,k:integer;
Begin
clrscr;
writeln('Массив А(м,н) преобразовать в два квадратных массива с(м,н) и Д(м,н)');
write('В котором недостоющи элементам присваевается значение 1 а лишние выбрасываются');
write('количество строк ');readln(n);
write('количество столбцов'); readln(m);
if n>m then k:=n-m else k:=0; if m>n then  r:=m-n else r:=0;
for i:=1 to n do
for j:=1 to m do begin
 gotoxy (j*3+5,i*1+5);
 readln (a[i,j]); end;
for i:=1 to n do
for j:=1 to m do begin
  c[i,j]:=a[i,j];
  d[i,j]:=a[i,j];end;
for i:=n downto n+1 do
for j:=m downto m+1 do
  a[i+1,j]:=c[i,j];
for i:=1 to n do
for b:=1 to k do begin
  c[i,b+m]:=1;end;
for j:=1 to m do
for s:=1 to r do begin
  c[n+s,j]:=1;end;
for i:=1 to n+r do
for j:=1 to m+k do  begin
  gotoxy(j*3+5,i*1+10);
  writeln (c[i,j]);end;
for i:=n downto n-1 do
for j:=m downto m-1 do
  a[i,j]:=d[i+1,j];
for j:=1 to m do
for b:=1 to k do begin
  d[n,j]:=0;end;
for i:=1 to n do
for s:=1 to r do begin
  d[i,m]:=0;end;
for i:=1 to n-k do
for j:=1 to m-r do begin
  gotoxy(j*3+5,i*1+15);
  writeln (d[i,j]);end;
readkey;
end.