ИНФОРМАТИКА 9 КЛАСС ПОМОГИТЕ!

2 задачки в одной программе на PascalABC:

var X, Y, Z, a, b, c : integer;
p : real;
begin
WriteLn ( ' Задача 1:' );
Write (' X = '); ReadLn (X);
Write (' Y = '); ReadLn (Y);
if (Y>=0) then Z := Min(X,Y) else Z := Max (sqr(X), sqr(Y));
WriteLn ( ' Z = ', Z);
WriteLn ( ' Задача 2: ');
Write (' a = '); ReadLn (a);
Write (' b = '); ReadLn (b);
Write (' c = '); ReadLn (c);
var W := Lst(a,b,c);
p := ((W.Max + W.Min)/2);
Println( ' p = ', p);
end.

Я так понимаю, что 2 программы надо, а не в 1 всё делать. Если я правильно понял, то программы обозначу как P1 (Program P1;) и P2 - соответственно P1 - к 1-ому заданию, P2 - ко 2-ому.

Итак, задание №1:

 Program P1; 

uses crt; 

var x, y, z: real; 

begin 

clrscr;

writeln ('Введите поочерёдно с клавиатуры значения переменных x и y. После ввода каждого числа нажимайте клавишу Enter. Значения переменных x и y должны быть разными.'); 

write ('Введите значение переменной x: x='); 

readln (x); 

write ('Введите значение переменной y: y='); 

readln (y); 

if x=y then writeln ('Ошибка: введённые значения переменных совпадают.') else begin 

   if y>=0 then begin 

      if  xa) then max:=b; 

p:=(min+max)/2; 

writeln ('Ответ: p=', p); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.