rekord

program rekord;

uses

Windows;

type

TDane = record { <— brak średnika.¹ }

Irnie: String;

Nazwisko: String; end;

var Dane : TDane; // zmienna wskazuje na rekord begin

Dane.	Imię	:= ^1 Adam^1;
Dane.	var	Imię : String
Messa	var	Nazwisko : String
end.