Найти ошибки в коде

uses crt;
var
o,x,y,z,kk,n,i,k,zz:integer;
a:array[1..27] of integer;
Begin
write('Ââåäèòå ÷èñëî, êîòîðîå ïîëó÷èëîñü â ñóììå: ');
readln(o);
ZZ:=0;
for k:=1 to 27 do
if 222*k-o>zz then A[i]:=k else A[i]:=0;
for i:=1 to 27 do
If a[i]>0 then write(a[i], ' ');
end.

uses crt;
var
o,x,y,z,kk,n,i,k,zz:integer;
a:array[1..27] of integer;
Begin
write('Введите число, которое получилось в сумме: ');
readln(o);
ZZ:=0;
i:=1;
for i:=1 to 27 do
if 222*k-o>zz then A[i]:=k else A[i]:=0;
for i:=1 to 27 do
If a[i]>0 then write(a[i], ' ');
end.

var
  i, j, k, s, t, p: integer;
  a: array[1..6] of integer;
 
begin
  for i := 0 to 9 do
    for j := 1 to 9 do
      for k := 2 to 9 do
      begin
        
        if (i >= j) or (j >= k) then continue;
        
        // создаем массив возможных вариантов чисел
        a[1] := i*100 + j*10 + k; 
        a[2] := i*100 + k*10 + j;
        a[3] := j*100 + i*10 + k;
        a[4] := j*100 + k*10 + i;
        a[5] := k*100 + i*10 + j;
        a[6] := k*100 + j*10 + i;
        
        // вычисляем сумму
        s := 0;
        for p := 1 to 6 do s := s + a[p]; 
        
        // в цикле вычитаем от суммы возможные числа
        for p := 1 to 6 do
        begin
          t := s;                // запоминаем сумму
          t := t - a[p];         // вычитаем число
          if t = 3371 then begin // если нашли искомые - выводим на экран
            writeln('цифры: ', i, ', ', j, ', ', k);
            writeln('сумма: ', s);
            writeln('искомое число: ', a[p]);
          end;
        end;
      end;
  readln;
end.