![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395172x1.png)
7
Consider this example:
The Pascal procedure, | type |
|
|
DayWeather.p | 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; |
|
|
|
|
|
|
148 | Pascal 4.0 User’s Guide |