Pascal Looping Perulangan Menggunakan Fungsi For

uses wincrt;
var
kata: string;
i,j,pjg : byte;
begin
write(‘Masukkan Kata:’);readln(kata);
pjg:= length(kata);
for i:=1 to pjg do
begin
for j:=1 to i do
write(kata[j]);
writeln;
end;
for i:=1 to pjg do
begin
for j:=1 to pjg-i+1 do
write(kata[j]);
writeln;
end;
end.