Срочно нужно написать программу на Pascal. Программа должна выводить 20 случайных чисел от 1 до 26 и чтобы они не повторялись. Числа должны сохранятся в массиве. Заранее Спасибо!

числа повторяются у меня также получалось)

но всё равно спасибо. и если не трудно постарайся переделать)

var a:array[1..20] of integer;c,b,i,d: integer;beginc:=0;b:=0;for i:= 1 to 20 dobegina[i]:=random (1,26);while (b <> 1) dobeginfor d:= 1 to i-1 doif (a[i] = a[d]) then c:=1;if (c = 1) then a[i]:=random (1,26) else b:=1;c:=0;end;end;for i:= 1 to 20 dowriteln(a[i]);end.P.S. Не уверен что правильно,т.к. не могу проверить программу в паскале