Формирование строки символов, С помощью процедуры Опции

[nesh]

Помогите, пожалуйста, исправить программу!
Процедура, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.
Я составил, но он выдает мне символ не тот, что я ввожу, а только тот, что запрагроммирован в самой программе, как это исправить подскажите, пожалуйста?! А второе, в самой программе у меня почему-то не получается обратиться к процедуре! Что мне нужно подправить?!
Вот текст этой программы:

program nomer13;
procedure nom(str: string; i,n: integer; var z: char);
begin
  for i:=1 to n do
    str:= str+chr(ord('z'));
end;
var z: char;
    n: integer;
begin
 writeln('Vvedite simvol');
  readln(z);
  writeln('Vvedite ix kolichestvo');
   readln(n);
  writeln(nom(z));
end.

[andriano]

1. Не путай между собой символ 'z' и переменную z. еременная - лишь место в памяти, куда можно записать любой символ.
2. Вспомогательные переменные (например, переменную циула) принято описывать внутри процедуры, а не передавать в нее в качестве параметра.
3. Если хочешь вернуть значение переменной в параметре, именно эту переменную надо описывать как var.
4. У тебя не совпадает количество и тип параметров в заголовке процедуры и при ее вызове. И, соответственно, недоописанные при вызове процедуры параметры должны быть определены в основной программе.
5. Процедура не возвращает значения. Можно сделать либо так, как ниже, либо переопределить nom как функцию.

program nomer13;
procedure nom(var str: string; n: integer; z: char);
var i : integer;
begin
  for i:=1 to n do
    str:= str+z;
end;
var z: char;
    n: integer;
  s:string;
begin
 writeln('Vvedite simvol');
  readln(z);
  writeln('Vvedite ix kolichestvo');
   readln(n);
  nom(s,n,z);
  writeln(s);
end.

PS. Набивал прямо здесь, не проверял.