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

Pascal:
uses crt;
var s: String;
n, i: Integer;
begin
readln(n);
for i := 1 to n do
s[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.