0

i have to do a seven segemtn display for 2 numbers but at the moment it looks like this:- http://i28.tinypic.com/a176ep.jpg but i want the 1 and 3 to be next to each other but i cannot seen to do this here is my pascal:-

```
Program sevensegmentdigit;
Uses Wincrt;
Var
x,y,n1,n2 : integer;
Procedure One;
begin
writeln(' ');
writeln(' |');
writeln(' |');
end;
procedure Two;
begin
writeln(' _ ');
writeln(' _|');
writeln('|_ ');
end;
procedure Three;
begin
writeln(' _ ');
writeln(' _|');
writeln(' _|');
end;
procedure Four;
begin
writeln(' ');
writeln('|_|');
writeln(' |');
end;
procedure Five;
begin
writeln(' _ ');
writeln('|_ ');
writeln(' _|');
end;
procedure Six;
begin
writeln(' _ ');
writeln('|_ ');
writeln('|_|');
end;
procedure Seven;
begin
writeln(' _ ');
writeln(' |');
writeln(' |');
end;
procedure Eight;
begin
writeln(' _ ');
writeln('|_|');
writeln('|_|');
end;
procedure Nine;
begin
writeln(' _ ');
writeln('|_|');
writeln(' |');
end;
procedure Zero;
begin
writeln(' _ ');
writeln('| |');
writeln('|_|');
end;
Begin
write('Is Your Number 1 or 2 Digits?...');
readln(y);
if y = 1 then
begin
write('Enter Number...');
readln(x);
if x = 1 then
begin
One
end;
if x = 2 then
begin
Two
end;
if x = 3 then
begin
Three
end;
if x = 4 then
begin
Four
end;
if x = 5 then
begin
Five
end;
if x = 6 then
begin
Six
end;
if x = 7 then
begin
Seven
end;
if x = 8 then
begin
Eight
end;
if x = 9 then
begin
Nine
end;
if x = 0 then
begin
Zero
end;
end;
if y = 2 then
begin
writeln('Enter First Number...');
readln(n1);
writeln('Enter Second Number...');
readln(n2);
if n1 = 1 then
begin
One;
end;
if n1 = 2 then
begin
Two;
end;
if n1 = 3 then
begin
Three;
end;
if n1 = 4 then
begin
Four;
end;
if n1 = 5 then
begin
Five;
end;
if n1 = 6 then
begin
Six;
end;
if n1 = 7 then
begin
Seven;
end;
if n1 = 8 then
begin
Eight;
end;
if n1 = 9 then
begin
Nine;
end;
if n1 = 0 then
begin
Zero;
end;
if n2 = 1 then
begin
One;
end;
if n2 = 2 then
begin
Two;
end;
if n2 = 3 then
begin
Three;
end;
if n2 = 4 then
begin
Four;
end;
if n2 = 5 then
begin
Five;
end;
if n2 = 6 then
begin
Six;
end;
if n2 = 7 then
begin
Seven;
end;
if n2 = 8 then
begin
Eight;
end;
if n2 = 9 then
begin
Nine;
end;
if n2 = 0 then
begin
Zero;
end;
end;
End.
```

can some help me do this plz thank you :D