Record_1=Record x, y: integer; s: string; k: word; ... end; var my_record_1: array[1..5] of Record_1;