наибольшее из простых чисел Опции

[spektr]

Задача:в какждой строке матрицы A(N,N) определите наибольшее простое число,если в строке нет простых чисел выдайте соответствующее значение.


Мой вариант:

Program natyr;
VAR
  A:array [1..100,1..100] of integer;
  i,j,n,k  : integer;
  f  :  boolean;
Begin
  WriteLn('vvedite razmernost massiva');
  readLn (n);
    For i:=1 to n do
    For j:=1 to n do
    ReadLn (A[i,j]);
      For i:=1 to n do
        begin
          For j:=1 to n do
            Begin
            F:=false
            For k:=2 to A[i,j] do
              If (A[i,j] mod k )=0
                Then f:= true
                If (f=false)
                  then A[i,j]  {vot zdesi ostanovilas proverit kak rabotaet,a ni kak ne rabotaet,nyli vidaet}

вопрос:
1.Почему выдает нули
2.Что не так
3.все не так не ответ (это последняя задача в семестре надо сдать до пузичных каолик)

[мисс_граффити]

может, не

  A[i,j]:=pr;

а наоборот?