Необходимо составить метод вывода на экран слова информатика 3 метода. Циклические

var a:array of char;

i:integer;  

s:string;

begin

s:='информатика';

a := new char[length(s)+1];

for i:= 1 to length(s) do a[i] := s[i];  

for i := 1 to length(s) do write(a[i]);

writeln;

i:=1;

while ilt;=length(s) do

begin

write(a[i]);

i:=i+1

end;

writeln;

i:=1;

repeat

write(a[i]);

i:=i+1

until igt;length(s)

end.