Разработать функцию MakeStr(ch1,ch2:char; N:integer):string, в которой символы ch1 и ch2 чередуются N раз - Free Pascal

Формулировка задачи:

Разработать функцию MakeStr(ch1,ch2:char; N:integer):string, возвращающую строку, в которой символы ch1 и ch2 чередуются, и это чередование повторяется N раз. Вводятся пары символов. Используя разработанную функцию, сгенерировать строки из повторений данных символов, причем первая пара должна повторяться 1 раз, вторая пара 2 раза, пара номер i должна повторяться i раз.

Решение задачи: «Разработать функцию MakeStr(ch1,ch2:char; N:integer):string, в которой символы ch1 и ch2 чередуются N раз»

Листинг программы

function MakeStr(ch1, ch2: Char; n: Integer): String;
var r: String;
begin
  r:=''; for n:=1 to n do r:=r+ch1+ch2; MakeStr:=r;
end;
var
  n: Integer;
  c1, c2: Char;
begin
  Write('N: '); ReadLn(n);
  for n:=1 to n do begin
    Write(n,', два символа: '); ReadLn(c1,c2);
    WriteLn(MakeStr(c1,c2,n));
  end;
end.

Объяснение кода листинга программы

Функция принимает три аргумента: ch1, ch2 - символы, N - количество повторений
В функции создается пустая строка r
В цикле N раз выполняется операция конкатенации строк r и (ch1+ch2)
Результат сохраняется в переменную r
В конце функции возвращается значение переменной r
В основной программе считывается значение N
В цикле N раз запрашиваются символы ch1 и ch2
Вызывается функция MakeStr с передачей считанных значений
Результат выводится на экран
Программа завершается