Помогите исправить программу

Question

program Project2; 
 
{$APPTYPE CONSOLE} 
 
uses 
 SysUtils; 
 
var 
 f:text; 
 a,b,sum:string; 
 r,s,i,xa,xb:integer; 
begin 
 assign(f,'input.txt'); 
 reset(f); 
 read(f,a,b); 
 for i:=length(a) downto 1 do 
 begin 
 r:=0; 
 xa:=StrToInt(a); 
 xb:=StrToInt(b); 
 s:=xa+xb+r; 
 if (s>=10) then r:=1 
 else r:=0; 
 s:=s mod 10; 
 end; 
 sum:=IntToStr(s)+sum; 
 close(f); 
 write(sum); 
 readln; 
end. 
 
не запускается почему то...

просто черный экран консоли мигнет и все.

Даны два целых неотрицательных числа A и B. Требуется найти их сумму. 
Формат входных данных: 
Во входном файле записаны целые неотрицательные числа A и B по одному в строке (A,B < 10^100)

Наталья · Accepted Answer

Если ты пытаешься сделать задание из вопроса: http://otvet.mail.ru/question/80269258/ , то совершенно непонятно, зачем ты манипулируешь строками. Достаточно:

{$apptype console}

uses
sysutils;
var
a, b: integer;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
read(a, b);
write(a + b);
end.

Если, делаешь что-то другое, то нужно говорить, что должна делать твоя программа.

Ксю · Answer

А компилятор что пишет, как ругается?

Наталия Ершова · Answer

Похоже на ошибки во входных данных. Заверните всю программу в try..Except и сделайте вывод ошибки.