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