Написать программу на паскале которая печатает первую и последнюю цифру 4-х значного числа, сравнивает их и печатает какое из этих двух цифр больше

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger('Введите число').ToString();
var (d1,d4):=(a[1].ToDigit(),a[4].ToDigit());
writeln('первая: ',d1,'; четвертая: ',d4);
if d1>d4 then write ('больше ',d1) else if d1<d4 then write('больше ',d4) else
write('цифры равны: ',d1);
end.

Var
x:integer;
begin
Read(x);
Writeln(x div 1000, ' ', x mod 10);
if x div 1000 > x mod 10 then Writeln(x div 1000, ' - больше');
if x div 1000 < x mod 10 then Writeln(x mod 10, ' - больше');
if x div 1000 = x mod 10 then Writeln('Они равны');
end.

Пример:
1234
1 4
4 - больше

Var a,b:longint;
function sum (n:integer):integer;
  var s:integer;
  begin
     s:=0;
     while (n<>0) do
       begin
         s:=s+n mod 10;
         n:=n div 10;
       end;
     sum:=s; 
  end;
  begin
    write ('A = ');
    readln (a);
    write ('B = ');
    readln (b);
    if sum(a) > sum(b) then
       writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
    else if sum(b) > sum (a) then 
       writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
    else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
    readln;
  end.

Пиксель» ұғымын ең алғаш рет 1965 жылы Фредерик С.Биллингсли жариялаған. Бұл сөз бейнелер мен элементтерге арналған пикстердің үйлесімін білдіреді. 1932 жылы Варіетy журналының атауында «пикс» ұғымы фильмдерге қатысты мәтіндік бейнелердің аббревиатурасы ретінде қолданыс тапқан. Ал 1938 жылдан бастап «пикс» жылжымайтын бейнелерге қатысты жұмсалып келеді. Кейбір авторлардың түсіндіруінде пиксель жасуша бейнесі ретінде ұғынылса, 1972 жылы графикада, бейнелер мен бейнежазбаларды өңдеуде жиі қолданылды.