помоги мне помоги мне сердце гибнет сердце гибнет ​(паскаль)

begin

 var Sum := 0;

 var a := 1;

 var f := OpenRead('input.txt');

 while a <> 0 do

 begin

   Read(f, a);

   Sum += a;

 end;

 Close(f);

 f := OpenWrite('output.txt');

 Write(f, Sum);

 Close(f);

end.