Programm für Primzahlzwillinge

[gordon freeman]

Hallo Leute,
ich muss für die Schule ein Programm schreiben, das aus einem bestimmten Zahlenbereich (z.B. 1-20) alle Primzahlzwillinge auflistet. Primzahlzwillinge sind zwei Primzahlen, die genau eine Zahl "zwischen" sich haben (z.B. 3,5 oder 11,13). Ich hab auch schon ein Programm geschrieben, das läuft nur nicht ganz richtig . Könnt ihr mir helfen?

Hier das Programm:

Delphi-Quellcode:

unit Unit1;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
m: TLabel;
n: TLabel;
Primzahlenzwillinge: TLabel;
Rechnen: TButton;
Ende: TButton;
procedure EndeClick(Sender: TObject);
procedure RechnenClick(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
m,n,x,i,h,u,zaehler,code:integer;
xstr,mstr:string;
implementation

{$R *.DFM}

procedure TForm1.EndeClick(Sender: TObject);
begin
close
end;

procedure TForm1.RechnenClick(Sender: TObject);
begin
val(form1.edit1.text,m,code);
val(form1.edit2.text,n,code);
for i:=m to n do

//Primzahlentest
begin
zaehler:=0;
for h:=1 to m do
if m mod h=0 then zaehler:=zaehler+1;
end;

//Zwillingstest
begin
if zaehler=2 then x:=m+2;
zaehler:=0;
for u:=1 to x do
if x mod u=0 then zaehler:=zaehler+1;
if zaehler=2 then
begin
str(x,xstr);
str(m,mstr);
memo1.lines:=memo1.lines+mstr+','+xstr+';';
end;
end;
end;

end.

tia, gordon Freeman

[edit=sakura] [delphi]-Tags gesetzt. Bitte in Zukunft selbst tun UND etwas mit Code-Einrückung arbeiten. Mfg, sakura[/edit]