Дано целое число N (> 0) и символ C. Вывести строку длины N, которая состоит из символов C.

[nadyaH]

делфи7

var
n,i:integer;
c:char;
o:extended;
begin
n:=STRTOint(Edit1.Text);
c:=chrtostr(EDIT2.TEXT);
for I:=1 to n do O:=c+I;
  EDIT3.TEXT := FloatToStr(c);

end;

end.

помогите пожалуйста разобраться в ошибках.

[BDA]

var
  n, i: integer;
  c: char;
  s: string;
begin
  n := strtoint(Edit1.Text);
  c := Edit2.text;
  s := '';
  for i := 1 to n do
    s := s + c;
  Edit3.text := s;
end;

Или:

begin
  if length(Edit2.Text) = 1 then
    Edit3.Text := StringOfChar(Edit2.Text[1], strtointdef(Edit1.Text, 0));
end;

[nadyaH]

ar
  n, i: integer;
  c: char;
  s: string;
begin
  n := strtoint(Edit1.Text);
  c := Edit2.text; ///ошибку программа выдаёт в этой строке   
  s := '';
  for i := 1 to n do
    s := s + c;
  Edit3.text := s;
end;

[Stilet]

c:string напиши. Так будет удобнее.

[nadyaH]

спасибо помогло