Составить программу,которая формирует символьную строку,состоящую из (n) точек???

Pascal:uses crt;var s: String;n, i: Integer;beginreadln(n);for i := 1 to n dos[i] := s[i] + '.';writeln(s);end.

Var s: string; n: integer; Begin Readln(n); s:=s; For i:integer:=1 to n do s:=s+'.'; Writeln(s); End.