В двухмерном массиве исключить строку с заранее заданным индексом

Program P7;
var
a:array[1..100,1..100] of integer;
x,y,i,j,s,n:integer;
begin
writeln('Vvedit rozmiry dvovymirnogo massyvu');
readln(s,n);
 
randomize;
for i:=1 to s do
  begin
   for j:=1 to n do
    begin
    a[i,j]:=random(90)-10;
    write(a[i,j]:4);
    end;
    writeln;
    end;
 
    writeln;
    writeln('Vvedit indeks stroky yaku hochete vykluchytu');
    readln(x);
 
    for i:=1 to s do
    begin
      for j:=1 to n do
        begin
         if (i=x) then
         write('');
         if i<>x then
         write(a[i,j]:4);
         end;
         writeln;
         end;
 
         readln;
         end.

uses crt;
var a:array[1..100,1..100]of integer;
i,j,k,m,n:integer;
 
begin
    clrscr;
    randomize;
    write('Введите размеры матрицы -> ');
    readln(n,m);
    writeln('Исходная матрица');
    for i:=1 to n do
    begin 
        for j:=1 to m do
        begin
            a[i,j]:=random(100);
            write(a[i,j]:3);
        end;
        writeln;
    end;
 
    write('Номер удаляемой строки -> ');
    readln(k);
 
    for i := k+1 to N do for j := 1 to M do a[i-1,j] := a[i,j];
 
    writeln('Преобразованная матрица');
    for i:=1 to N-1 do
    begin 
        for j:=1 to M do write(a[i,j]:3);
        writeln;
    end;
    readln;
end.