кто сможет такую программу в pascal написать? (условия внутри)

var
st1, st2, st3: string;
k1, k2, k3: integer;
begin
readln(st1);readln(st2);readln(st3);
readln(k1);readln(k2);readln(k3);
writeln('st1[',k1,']=',st1[k1]);
writeln('st2[',k2,']=',st2[k2]);
writeln('st3[',k3,']=',st3[k3]);
end.