DIZILERDE SIRALAMA VE REWRITE (DOSYAYA YAZDIRMA)

PROGRAM siralama2;
USES CRT;

VAR i,j,TEMP:INTEGER;
DIZI:ARRAY [0..4] OF INTEGER;
sonuc:TEXT;

BEGIN
CLRSCR;

ASSIGN (sonuc, 'C:/cikti.txt');
REWRITE(sonuc);

WRITELN('LUTFEN 5 ADET TAMSAYI YAZINIZ');

READLN(DIZI[0]);
READLN(DIZI[1]);
READLN(DIZI[2]);
READLN(DIZI[3]);
READLN(DIZI[4]);


FOR i:=1 TO 4 DO

IF (DIZI[0] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[0];
DIZI[0] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR i:=1 TO 4 DO

IF (DIZI[1] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[1];
DIZI[1] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=2 TO 4 DO

IF (DIZI[2] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[2];
DIZI[2] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=3 TO 4 DO

IF (DIZI[3] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[3];
DIZI[3] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=4 TO 4 DO

IF (DIZI[4] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[4];
DIZI[4] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR j:=0 TO 4 DO
BEGIN
WRITELN(sonuc,DIZI[j]);
WRITELN(DIZI[j]:5);
END;


CLOSE(sonuc);


READLN;
END.