How do i convert this pascal into pseudocode?
Program Masqueraders;
Uses wincrt;
Var 
  name:string; {string for names}

{Declaring arrays for the different sections}
  Carnivites: Array[1..50]of string[20];
  Fire:Array[1..50]of string[20];
  Bachannal:Array[1..50]of string[20];
  Calypso:Array[1..50]of string[20];
  RealFest:Array[1..50]of string[20];

{Declaring counters for each section}
carncount, firecount, bachcount, calycount, realcount:integer;

Mchoice:integer; {menu selector}

BEGIN 
{Initializing counters}
carncount:=0;
firecount:=0;
bachcount:=0;
calycount:=0;
realcount:=0;

   Writeln('WELCOME TO SWEET JAMBOURINE CARNIVAL BANDS');
   Writeln;

{Collection of data for the arrays}

REPEAT
   Write('Please enter your name: ');
   Read(name);
   Writeln;
   Writeln('Select the number for the amount paid');
   Writeln;
   Write('(1)144  (2)198  (3)252  (4)315  (5)382 (6)STOP :');
   Readln(Mchoice);
   Writeln;

   If Mchoice =1 then
     begin
     calycount:=calycount+1;
     Calypso[calycount]:=name;
     Writeln(Calypso[calycount],' you have chosen Calypso Classics');
     Writeln;
     end;
   If Mchoice =3 then
     begin
     carncount:=carncount+1;
     Carnivites[carncount]:=name;
     Writeln(Carnivites[carncount],' you have chosen Carnivites');
     Writeln;
     end;
   If Mchoice =2 then
     begin
     bachcount:=bachcount+1;
     Bachannal[bachcount]:=name;
     Writeln(Bachannal[bachcount],' you have chosen Bachannal');
     Writeln;
     end;
   If Mchoice =4 then
     begin
     firecount:=firecount+1;
     Fire[firecount]:=name;
     Writeln(Fire[firecount],' you have chosen Fire Flies');
     Writeln;
     end;
   If Mchoice =5 then
     begin
     realcount:=realcount+1;
     Realfest[realcount]:=name;
     Writeln(Realfest[realcount],' you have chosen Real Festivites');
     Writeln;
     end;
  
UNTIL Mchoice=6;

{Output of people count and totals for each section}

Writeln('Total persons for Calypso Classics would be : ',calycount);
Writeln('Total amount collected for Calypso Classics is $',calycount*144);
Writeln;
Writeln('Total persons for Bachannal Party would be : ',bachcount);
Writeln('Total amount collected for Bachannal Party is $',bachcount*198);
Writeln;
Writeln('Total persons for Carnivites wpuld be :  ',carncount);
Writeln('Total amount collected for Carnivites is $',carncount*252);
Writeln;
Writeln('Total persons for Fire Flies would be : ',firecount);
Writeln('Total amount collected for Fire Flies is $',firecount*315);
Writeln;
Writeln('Total persons for Real Festivites would be : ',realcount);
Writeln('Total amount collected for Real Festivites $',realcount*382);
Writeln;

END.

How do i convert this pascal into pseudocode?
===

Program Masqueraders;
Uses wincrt;
Var 
  name:string; {string for names}

{Declaring arrays for the different sections}
  Carnivites: Array[1..50]of string[20];
  Fire:Array[1..50]of string[20];
  Bachannal:Array[1..50]of string[20];
  Calypso:Array[1..50]of string[20];
  RealFest:Array[1..50]of string[20];

{Declaring counters for each section}
carncount, firecount, bachcount, calycount, realcount:integer;

Mchoice:integer; {menu selector}

BEGIN 
{Initializing counters}
carncount:=0;
firecount:=0;
bachcount:=0;
calycount:=0;
realcount:=0;

   Writeln('WELCOME TO SWEET JAMBOURINE CARNIVAL BANDS');
   Writeln;

{Collection of data for the arrays}

REPEAT
   Write('Please enter your name: ');
   Read(name);
   Writeln;
   Writeln('Select the number for the amount paid');
   Writeln;
   Write('(1)144  (2)198  (3)252  (4)315  (5)382 (6)STOP :');
   Readln(Mchoice);
   Writeln;

   If Mchoice =1 then
     begin
     calycount:=calycount+1;
     Calypso[calycount]:=name;
     Writeln(Calypso[calycount],' you have chosen Calypso Classics');
     Writeln;
     end;
   If Mchoice =3 then
     begin
     carncount:=carncount+1;
     Carnivites[carncount]:=name;
     Writeln(Carnivites[carncount],' you have chosen Carnivites');
     Writeln;
     end;
   If Mchoice =2 then
     begin
     bachcount:=bachcount+1;
     Bachannal[bachcount]:=name;
     Writeln(Bachannal[bachcount],' you have chosen Bachannal');
     Writeln;
     end;
   If Mchoice =4 then
     begin
     firecount:=firecount+1;
     Fire[firecount]:=name;
     Writeln(Fire[firecount],' you have chosen Fire Flies');
     Writeln;
     end;
   If Mchoice =5 then
     begin
     realcount:=realcount+1;
     Realfest[realcount]:=name;
     Writeln(Realfest[realcount],' you have chosen Real Festivites');
     Writeln;
     end;
  
UNTIL Mchoice=6;

{Output of people count and totals for each section}

Writeln('Total persons for Calypso Classics would be : ',calycount);
Writeln('Total amount collected for Calypso Classics is $',calycount*144);
Writeln;
Writeln('Total persons for Bachannal Party would be : ',bachcount);
Writeln('Total amount collected for Bachannal Party is $',bachcount*198);
Writeln;
Writeln('Total persons for Carnivites wpuld be :  ',carncount);
Writeln('Total amount collected for Carnivites is $',carncount*252);
Writeln;
Writeln('Total persons for Fire Flies would be : ',firecount);
Writeln('Total amount collected for Fire Flies is $',firecount*315);
Writeln;
Writeln('Total persons for Real Festivites would be : ',realcount);
Writeln('Total amount collected for Real Festivites $',realcount*382);
Writeln;

END.
