Программа перевода заданного целого числа из десятичной системы  в двоичную.  Результатом перевода является строка — Pascal(Паскаль)

Program pr37 (Input, Output); 
Label 1, 2;
Var 
A: Integer;
C : Integer;
B : Integer;
S : String; 
 
Begin
 
S := '';
WriteLn ('PASCAL: Перевод из десятичной системы счисления в двоичную.'); 
Write ('Введите число: '); 
ReadLn (A);
 
B := A;
2: C := A Div 2;Делим A на 2 каждый раз и находим 
 остатки, а затемсоединяемчастноеи
If A - C*2 = 0 Then S := '0' + S;остатки как символьные величины, что 
Если остаток от деления A на 2 равен 1, то добавляем спереди к S цифру '1'
 
If C < 1 Then Goto 1; 
 
A := C; Goto 2;
 
1: WriteLn ('Число ', B, ' в двоичной системе - ', s);
 
ReadLn;
End.