Помогите с информатикой (паскаль)

2.
var
i: Integer;
a:longint;
function IsSimple(const n: Integer): Boolean;
var
i: Integer;
begin
IsSimple:=True;
for i:=2 to Trunc(Sqrt(n)) do
if (n mod i)=0 then
begin
IsSimple:=False;
Break
end
end;
begin
Write('Vvedite a:');
Readln(a);
i:=1;
if (IsSimple(a)) then
begin
a:=a+1;
while not(IsSimple(a)) do a:=a+1;
WriteLn('next_a=',a);
end
else WriteLn('Ne_prostoe');
end.

3. Дано натуральное число n. Переставить цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.
=====================
slu4.4islo : 667369
max 4islo : 976663
=====================
slu4.4islo : 126033
max 4islo : 633210
=====================
slu4.4islo : 238126
max 4islo : 863221
=====================
slu4.4islo : 569356
max 4islo : 966553
=====================
slu4.4islo : 100964
max 4islo : 964100
=====================
slu4.4islo : 550882
max 4islo : 885520
=====================
slu4.4islo : 408111
max 4islo : 841110
=====================
slu4.4islo : 961058
max 4islo : 986510
=====================
slu4.4islo : 296356
max 4islo : 966532
=====================
slu4.4islo : 420957
max 4islo : 975420
=====================
slu4.4islo : 449087
max 4islo : 987440
=====================
slu4.4islo : 20489
max 4islo : 98420
=====================
slu4.4islo : 362740
max 4islo : 764320
=====================
slu4.4islo : 341847
max 4islo : 874431
=====================
slu4.4islo : 275299
max 4islo : 997522
=====================
slu4.4islo : 602506
max 4islo : 665200
=====================
slu4.4islo : 73415
max 4islo : 75431
=====================
slu4.4islo : 904098
max 4islo : 998400
=====================
slu4.4islo : 276960
max 4islo : 976620
=====================
slu4.4islo : 825884
max 4islo : 888542
=====================
slu4.4islo : 38167
max 4islo : 87631
=====================
slu4.4islo : 192199
max 4islo : 999211
=====================
slu4.4islo : 998611
max 4islo : 998611
=====================
slu4.4islo : 748745
max 4islo : 877544
=====================
slu4.4islo : 33227
max 4islo : 73322
=====================
slu4.4islo : 38836
max 4islo : 88633
=====================
slu4.4islo : 484991
max 4islo : 998441
=====================
slu4.4islo : 277017
max 4islo : 777210
=====================
slu4.4islo : 99611
max 4islo : 99611
=====================
slu4.4islo : 756463
max 4islo : 766543
=====================
slu4.4islo : 639100
max 4islo : 963100
=====================
slu4.4islo : 384333
max 4islo : 843333
=====================
slu4.4islo : 216810
max 4islo : 862110
=====================
slu4.4islo : 262257
max 4islo : 765222
=====================
slu4.4islo : 250548
max 4islo : 855420
=====================
slu4.4islo : 748657
max 4islo : 877654
=====================
slu4.4islo : 181562
max 4islo : 865211
=====================
slu4.4islo : 19200
max 4islo : 92100
=====================
slu4.4islo : 240709
max 4islo : 974200
=====================
slu4.4islo : 694954
max 4islo : 996544
=====================
slu4.4islo : 908113
max 4islo : 983110
=====================
slu4.4islo : 600257
max 4islo : 765200
=====================
slu4.4islo : 992667
max 4islo : 997662
=====================
slu4.4islo : 465368
max 4islo : 866543
=====================
slu4.4islo : 971567
max 4islo : 977651
=====================
slu4.4islo : 786726
max 4islo : 877662
=====================
slu4.4islo : 352968
max 4islo : 986532
=====================
slu4.4islo : 778876
max 4islo : 887776
=====================
slu4.4islo : 88767
max 4islo : 88776
=====================
slu4.4islo : 820748
max 4islo : 887420
=====================
slu4.4islo : 761154
max 4islo : 765411
=====================
slu4.4islo : 939938
max 4islo : 999833
=====================
slu4.4islo : 53519
max 4islo : 95531
=====================
slu4.4islo : 577691
max 4islo : 977651
=====================
slu4.4islo : 751314
max 4islo : 754311
=====================
slu4.4islo : 154745
max 4islo : 755441
=====================
slu4.4islo : 272349
max 4islo : 974322
=====================

Program jopa;
var R RE A RAE;
BEGIN
Writeln(ВВЕДИТЕ ПАРОЛЬ ПАЖАЛУСТА);
READLN(ТАМ ЧЕТА ТМА);
IF (ТАМ ЧЁТА ТАМ) =1234 TO WRITELN(ВЕРНО МАЛАДЕС ВААААААААААААА) ELSE WRITELN(НЕПРАВИЛНА ИДИ НАФИК);
END END END END
SPADISISDBO