Нужен код на Паскале, срочно! 4 и 5 задание.

Var A:integer; S:string; Z:boolean; Begin WriteLn('Введите целое число '); Read(A); if A<0 then Begin Z:=true; A:=-1*A; End; While A>0 do Begin Case A mod 10 of 0:S:=0+S; 1:S:=1+S; 2:S:=2+S; 3:S:=3+S; 4:S:=4+S; 5:S:=5+S; 6:S:=6+S; 7:S:=7+S; 8:S:=8+S; 9:S:=9+S; End; A:=A div 10; End; if Z then S:='-'+S; Write(S) End. function StrToInt1(S:string):boolean; var i:integer; begin result:=true; For i:= 1 to Length(S) do    if not(S[i]in['+','-','0','1','2','3','4','5','6','7','8','9']) then    begin    result:=false;    break;    end; end;