Определить симметричность введенного четырехзначного числа если да вывести 1 если нет любое число написать в pascal

Program Test;

var
  a: array [0..3] of integer;
  c: integer;

begin
  for c := 0 to 3 do
  begin
    read(a[c]);
  end;
  if a[0] = a[3] then
  begin
  if a[1] = a[2] then write('1') else write(random(100))
  end;
 
end.