Guys I need help asap

You must create a record for a ship A ship has the following attributes: a name (suing) an - (integer) a destination port and an origin port (strings) In your code create a Pascal record to street the ship using the field names for each attribute as provided by you tutor Also include the following type definition at the top of your program type sops gray of ship Write a function clod read ship ship: that reads from the terminal values for each at the fields in a ship record and returns the completed record. Write a procedure called write ship (s: ship); that takes a ship record and writes each of the field as well as the field value. Write a function called read All ship (count: Integer): ships that cells your road ship function count times and stores each ship in Ships. Write a procedure called write All ships (ship Array: ships) that calls your write ship() procedure of each ship in shipping Include the following code in your Main to test your program You must create a record for a ship A ship has the following attributes: a name (suing) an - (integer) a destination port and an origin port (strings) In your code create a Pascal record to street the ship using the field names for each attribute as provided by you tutor Also include the following type definition at the top of your program type sops gray of ship Write a function clod read ship ship: that reads from the terminal values for each at the fields in a ship record and returns the completed record. Write a procedure called write ship (s: ship); that takes a ship record and writes each of the field as well as the field value. Write a function called read All ship (count: Integer): ships that cells your road ship function count times and stores each ship in Ships. Write a procedure called write All ships (ship Array: ships) that calls your write ship() procedure of each ship in shipping Include the following code in your Main to test your program