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

Var
A:integer;
S:string;
Z:boolean;
Begin
WriteLn('Введите целое число ');
Read(A);
if A<0 then<br>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;

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