Нужно Ваше содействие

program p1;
 
var p: real;
    k, n: integer;
 
begin
  repeat
    write('n = ');
    readln(n);
    if n < 1 then writeln('Error: n < 1, reenter.')
  until n >= 1;
  p := 1;
  for k := 1 to n do p := p / sqrt(k);
  writeln('p = ', p);
  readln
end.

program p2;
 
const color: array [1..6] of string = ('Красный', 'Жёлтый', 'Зелёный',
                                       'Синий', 'Белый', 'Чёрный');
 
var k, n: byte;
 
begin
  write('n = ');
  readln(n);
  write('k = ');
  readln(k);
  if (n in [1..6]) and (k in [1..6])
    then writeln(color[n], ' и ', color[k])
    else writeln('Invalid color.');
  readln
end.

program p3;
 
var x: integer;
 
begin
  write('x = ');
  readln(x);
  if (x >= -2)
    then
      if not(odd(x))
        then writeln('f(x) = ', ln(x + 6))
        else writeln('Function not defined')
    else writeln('f(x) = ', sin((4 - x) / 3));
  readln
end.

program p4;
 
var t: real;
 
begin
  write('Temperature in Fahrenheit degree = ');
  readln(t);
  writeln('Temperature in Celsius degree = ', (t - 32) * 5 / 9:7:2);
  readln
end.

program p5;
 
const m = 10;
 
var a: array [1..m] of real;
    q: real;
    i: integer;
 
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m do
    begin
      a[i] := random * 1998 - 999;
      writeln(a[i])
    end;
  write('q = ');
  readln(q);
  writeln('Result:');
  for i := 1 to m do if a[i] > q then writeln('a[', i, '] = ', a[i]);
  readln
end.