HP SunSoft Pascal 4.0 - Manual (Page 172)

148 Pascal 4.0 User’s Guide
7
Consider this example:
The Pascal procedure ,
DayWeather.p
type
TDayWeather = record
TDay: array [0..8] of char;
TWeather:array [0..20] of char;
end;
TDayWeatherArray = array [0..1] of TDayWeather;
procedure DayWeather (
var W: TDayWeatherArray;
var WeatherSize: integer
);
begin
W[1].TDay := 'Sunday';
W[1].TWeather := 'Sunny';
WeatherSize := 5;
end;