Valaki át tudná irni nekem ezt shell script-be? (egyszerü program)

egy pascal programot kellene shell be átírni.

itt a forrás:

program prog1;

uses crt;

var karakterek:array [1..40] of string;

j1:array [1..6] of string;

j2,j3:string;

s1,s2,s3,s4,s5,s6:word;

a1,a2,a3:word;

procedure ertekadas;

begin

a1:=0;

a2:=0;

repeat

a1:=a1+1;

karakterek[a1]:=chr(47+a1);

until a1=10;

a2:=a1;

repeat

a2:=a2+1;

karakterek[a2]:=chr(96+a2-a1);

until a2=36;

end;

function logica(s:word):boolean;

begin

case s of

36:logica:=true;

else

if j3=j2 then

begin

logica:=true;

end else

begin

logica:=false;

end;

end;

end;

begin

textcolor(14);

ertekadas;

writeln('gépelj be 6 karaktert:');

readln(j2);

repeat

s1:=s1+1;

j1[1]:=karakterek[s1];

s2:=0;

repeat

s2:=s2+1;

j1[2]:=karakterek[s2];

s3:=0;

repeat

s3:=s3+1;

j1[3]:=karakterek[s3];

s4:=0;

repeat

s4:=s4+1;

j1[4]:=karakterek[s4];

s5:=0;

repeat

s5:=s5+1;

j1[5]:=karakterek[s5];

s6:=0;

repeat

s6:=s6+1;

j1[6]:=karakterek[s6];

j3:='';

j3:=j1[1]+j1[2]+j1[3]+j1[4]+j1[5]+j1[6];

writeln(j3);

until logica(s6);

until logica(s5);

until logica(s4);

until logica(s3);

until logica(s2);

until j3=j2;

writeln('a kód=');

write(j3);

readln;

end.

szükségem lenne erre a programra shell-ben egy biztonsági rendszer teszteléséhez.