Версия для печати темы

uses crt;
const n=3;m=5;
type
tvector = array[1 .. m] of integer;
tmatrix = array[1 .. n] of tvector;
var
  s:array[1..n] of integer;
  i,j,K_ch,K_pr:integer;
  mx:tMatrix;
{------------------------------------------------------------------------------}

function prosto(x:integer):boolean;
var i,s:integer;
begin
for i:= 1 to x do
  begin
   if x mod i=0 then s:=s+1;
   if s=2 then prosto:=true
  end;
end;

begin
ClrScr;
cls;

{Ввод массива}
for i:=1 to n do
  for j:=1 to m do
   readln(mx[i][j]);

{Вывод массива}
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

K_ch:=0;K_pr:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
     If mx[i][j]mod 2=0 then K_ch:=K_ch+1;
     If Prosto(mx[i][j])=true then k_pr:=K_pr+1;
     If K_Pr>K_ch then удалить i-ю строку;     {здесь подумай сама как удалить строку}
    end; :give_rose:

Writeln('Теперь матрица выглядит так: ');
for i:=1 to n do
begin
  for j:= 1 to m do
   Write(mx[i][j],' ');
  writeln
end;

end.