trabalho Pascal

PASCAL -->

Program soma_binarios;

Uses WinCrt;

Var bin1, resposta,bin2, result, result_final: string [20] ; n1, n2, i,alg1, alg2, somabin, vai, vem, cont, erro: integer;

Begin repeat clrscr;
Writeln ('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
Writeln (' Programa para somar números Binários!!!!!');
Writeln ('+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); writeln; result_final:=''; {zero esta variável, pois quando o loop é feito a resposta anterior fica armazenada e é repetida} result:= '';
Write (' Digite o 1º número: '); readln (n1); str (n1, bin1); for i:=1 to length(bin1) do {este for foi criador para tratar o erro quando o usuário digitar um número não binário} if ( bin1[i] '0' ) and ( bin1[i] '1') then begin clrscr;
Writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
Writeln (' Programa para somar números Binários!!!!!');
Writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); writeln; writeln (' Lembrete: Números binários são compostos por zeros e uns!!!!'); write (' Redigite o número: '); readln(n1); str (n1, bin1); {transforma a variável numérica em uma string} end; write (' Digite o 2º Número:+ '); readln (n2); str (n2, bin2); for i:=1 to length(bin2) do {este for também foi criador para tratar o erro quando o usuário digitar um número não binário} if ( bin2[i] '0' ) and ( bin2[i] '1') then begin clrscr;
Writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
Writeln (' Programa para somar números Binários!!!!!');
Writeln ('++++++++++++++++++++++++++++++++++++++++++++++++++++++++'); writeln; writeln (' Digite o 1º número: ',n1); writeln (' Lembrete: Números binários são compostos por zeros e uns!!!!'); write (' Redigite o numero: '); readln(n2); str (n2, bin2); {transforma a variável numérica em uma string} end; if length(bin1) > length (bin2) then {outro