Переписать программу с использованием процедур

Program lab6;
uses crt;
var A, B: boolean;
C, D: real;
x, y: char;
begin
Write ('Введите значение A. 1 = true, 0 = false:= '); readln(x);
Write ('Введите значение B. 1 = true, 0 = false:= '); readln(y);
Write ('Введите число C:= '); readln(c);
Write ('Введите число D:= '); readln(d);
 begin                      {Определяем значения True и False для A и B}
  if x = '1' then A:= True
   else
      end;
  begin
   if x = '0' then A:= False
     else
      end;
  begin
   if y = '1' then B:= True
     else
      end;
 begin
  if y = '0' then B:= False
    else
     end;
if ((A = B) and (C > D) = true or not A)then  {Проверяем условия}
  if ((true <> A) and (C - D < 3)) then
    write('S1, ','A - ложь и разность переменных C и D меньше 3')
    else
    write('S2, ','A - истина или разность C и D больше 3')
    else
    write('S3, ','A - неравно B или C меньше D');
end.

 program K2L7;
 
  var z:integer;
  procedure q (var A, B: boolean; C, D: real;x, y: char );
   begin
   Write ('Введите значение A. 1 = true, 0 = false:= '); readln(x);
   Write ('Введите значение B. 1 = true, 0 = false:= '); readln(y);
   Write ('Введите число C:= '); readln(c);
   Write ('Введите число D:= '); readln(d);
   end;
 
 
  var x:integer;
  procedure w (var A, B: boolean; C, D: real;x, y: char);
  begin
  if x = '1' then A:= True
  else
  if x = '0' then A:= False
  else
  if y = '1' then B:= True
  else
  if y = '0' then B:= False
  else
  end;
 
 
  var c:integer;
  procedure e (var A, B: boolean; C, D: real;x, y: char);
  begin
  if ((A = B) and (C > D) = true or not A)then {Проверяем условия}
  if ((true <> A) and (C - D < 3)) then
  write('S1, ','A - ложь и разность переменных C и D меньше 3')
  else
  write('S2, ','A - истина или разность C и D больше 3')
  else
  write('S3, ','A - неравно B или C меньше D');
  end;
 
 
 
 
  begin
  writeln (q(z));
  x(w);
  e(c);
  end.

const
    ANSWER: Array[Boolean, Boolean] Of String = (('S3, A - неравно B или C меньше D', 'S3, A - неравно B или C меньше D'), ('S2, A - истина или разность C и D больше 3', 'S1, A - ложь и разность переменных C и D меньше 3'));
procedure InputData(var a, b: Boolean; var c, d: Real);
procedure InputBoolean(var x: Boolean; const name: Char);
var
    y: Char;
begin
    repeat
        Write('Введите значение ', name, ' (0 - false | 1 - true): ');
        ReadLn(y);
    until (y in ['0', '1']);
    x := (y = '1');
end;
procedure InputReal(var x: Real; const name: Char);
begin
    Write('Введите число ', name, ': '); ReadLn(x);
end;
begin
    InputBoolean(a, 'A');
    InputBoolean(b, 'B');
    InputReal(c, 'C');
    InputReal(d, 'D');
end;
 
procedure MainProcess(const a, b: Boolean; const c, d: Real);
begin
    WriteLn(ANSWER[(((a = b) And (c > d)) Or (Not a)), ((Not a) And (d + 3 > c))]);
end;
 
var
    a, b: Boolean;
    c, d: Real;
begin
    InputData(a, b, c, d);
    MainProcess(a, b, c, d);
end.