Помогите с паскалем! Пожалуйста! Спасите!

Здраствуйте Екатирина!
Ниже решение на 1 и 3 задачу.
Задача 1.
четное или нечетное число проверяем с помощью функции odd.

program rjad;
const
n = 10; {можно изменить}
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
i, i1 : integer;
begin
randomize; // сбрасываем генератор случайных чисел
i1 := 0;
for i := 1 to n do
begin
a := random(50); //заполняем массив случ. чисел от 0 до 50
if not(odd(a)) then // если число чётное сразу заполняем второй массив
begin // и считаем сколько чётных чисел
i1 := i1 + 1;
a1[i1] := a;
end;
write(a, ' '); // выводим начальную последовательность
end;

// ниже выводим оработанную последовательность 
writeln;

for i := 1 to i1 do
write(a1, ' ');

readln;
end.

задача 3
В решении 3 задачи все заменённые числа подсвечиваются красным цветом для наглядности

program rjad1;
uses
crt;
const
n = 10; {можно изменить}
var
a : array[1..n] of real;
z : real;
i, i1 : integer;
begin
randomize; // запускаем генератор случ. чисел
writeln('Введите Z');
readln(z);

for i := 1 to n do
begin
a := random(trunc(z) + 50); //заполн. массив случ. числами от 0 до z + 50
write(a:3:0); // выводим начальный массив
end;

// выводим обработанный массив
i1 := 0;
writeln;
for i := 1 to n do
if a > z then
begin
i1 := i1 + 1; // считаем кол-во замен
textcolor(4); // меняем цвет заменнённых чисел
write(z:3:0); // для наглядности
textcolor(7);
end
else
write(a:3:0);

writeln;
writeln('Кол-во замен = ', i1);
readln;
end.

Пиши на мыльник

Могу помоч стучи в агент