Составить программу, которая строит ряд из n знаков "*" , m знаков "! " и n знаков "*" если n

Program mrs3;
var i,m,n:integer;
begin
writeln('m='); readln(m);
writeln('n='); readln(n);
if m>n then begin   
for i:=1 to n do   write('*');   
for i:=n to m do   write('!');   
for i:=m downto n do   write('*');   
end; end.

Var m, n, i: integer;
begin
     readln(n, m);
     for i := 1 to n do write('*');
     writeln;
     if (n < m) then
        for i := 1 to m do write('!');
end.     

По условию так =)