Нужно составить алгоритм вывода на экран слова информатика циклические алгоритмы

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 i<=length(s) do

begin

write(a[i]);

i:=i+1

end;

writeln;

i:=1;

repeat

write(a[i]);

i:=i+1

until i>length(s)

end.