помогите решить в паскале
1) Составить программу для того, чтобы компьютер, используя генератор случайных чисел, записал на экране случайное число, значение которого лежит в пределах от 5 до 6.
2) Введено 3-значное число. Вывести число в зеркальном отображении.
3)Введенное 4-значное число изменить так, чтобы 1-3 и 2-4 цифры поменялись местами.

program task1;var  a :integer;begin  randomize;  a:= 0;  while (a <> 5) and (a <> 6) do    a:= random(7);  writeln(a);end.program task2;var  Digit, i :integer;  DigitStr :string;begin  readln(Digit);  str(Digit,DigitStr);  for i:= length(DigitStr) downto 1 do    write(DigitStr[i]);end.program task3;var  Digit :integer;  NewDigit, DigitStr :string;begin  readln(Digit);  str(Digit,DigitStr);  NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2];  writeln(NewDigit);end.