Формирование строки из n одинаковых символов — Pascal(Паскаль)

var 
  c: char;
  s: string;
  n: integer;
begin
  n := 10;
  c := 'z';
  s := '';
  for var i:=1 to n do
    s += c;
  writeln(s);
end.