Nhập vào 5 số, thêm dấu '+' hay '-' để có phép tính với tổng lớn nhất

max(tong).pas

program max_tong;
uses crt;
var s, tmp: string;
    i: byte;
    input: int64;
begin
 clrscr;
 for i:=1 to 5 do begin
  write('Nhap so thu ', i, ': ');
  readln(input);
  str(input, tmp);
  if input>=0 then begin
   if i=5 then s:=s+tmp else s:=s+tmp+'+';
  end else begin
   if s[length(s)]='+' then delete(s, length(s), 1);
   tmp:='-'+'('+tmp+')';
   s:=s+tmp;
  end;
 end;
 write(s);
 readkey;
end.