числа-близнецы

[evg94]

Два простых числа называются близнецами, если они отличаются друг от друга на 2. Напечатать все пары близнецов, не превышающих 200.

program bliz;
var
 k,f,c,g:integer;
procedure otbor(c:integer); {отбор простых чисел}
 var
  p:integer;
  begin
     k:=0;
     for p:=1 to c do
      begin
       begin
         if (c mod p)=0
         then k:=k+1;
       end;
      end;
     f:=c;
     end;
  begin {тело основной программы}
  for c:=2 to 200 do
    begin
    otbor (c);
    if k=2 then
      begin
       g:=f;
       otbor (c+2);
       if k=2 then writeln (c,'-',f);
       otbor (c-2);
       if k=2 then writeln (c,'-',f);
      end;
    end;
  end.