pascal coding question

i need help to code this question in pascal language- 1. Develop an algorithm that will accept a Company Name, its Team Name and the scores it received for Presentation, Preparation & Palatability. Calculate the total points scored by each team. Use three (3) arrays to store the Company Name, Team Name and Total Points. The user will type “END” when all the data has been entered. The algorithm will search the Total Points array for the highest score and display the winning company’s Name, Team Name and the Total Points it received. Determine and display how many teams received 200 points and over and how many received under 200 points.