Где ошибка Паскаль задача счастливый билет

А где тут не ошибки?

P.S. Напиши условие задачи.

P.P.S.
var s:string[6];
begin
assign (input,'input.txt'); reset (input); readln(input,s);
assign (output,'output.txt'); rewrite (output);
if ord(s[1])+ord(s[2])+ord(s[3])=ord(s[4])+ord(s[5])+ord(s[6])
then writeln(output,'YES') else writeln(output,'NO');
end.

Предполагается, что в файле записано всегда 6-значное число, например, 001001, как это делается на билетах.

var
input, output : text;
x:string[6];
i:byte;
y:array[1..6] of byte;
begin
assign (input,'input.txt');
assign (output,'output.txt');
{$I-}
reset (input);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл INPUT не найден! ');
Halt;
end;
{$I-}
rewrite (output);
{$I+}
if IOResult <> 0 then { если не нуль, то была ошибка }
begin
Write(Файл OUTPUT Невозможно создать! ');
Halt;
end;
ReadLn(input,x);
Close(input);
For i:=1 to 6 do y [ i ] = ord( x [ i ] );

if ((y[1]+y[2]+y[3])=(y[4]+y[5]+y[6]) then writeln(output,'YES') else WriteLn(output,"NO');

close (output);
END.

без обид.. .
топорно написана прога.

P.P.P.S. Фу ты, возможность редактирования уже пропала, придется добавить отдельно - забыл еще объявить в разделе var используемые файлы. Надо после s:string[6]; добавить input,output:text;

сделай
var
x : string[6];
далее.. . ты x1+x2+x3 - складываешь не цифры, а коды символов (хотя, на логике это может не отражаться) .
используй readLN
а в конце проги файлики надо закрывать: close(input)

чувствую, что еще должны быть ошибки )))
если что - пиши в аську: 383-331-341

Надо после s:string[6]; добавить input,output:text;