program errors;
type поле = (а,b);
запись = record a:integer; b:char end;
var х,у:запись; c:char;
function f (var r:запись):запись;
var р:поле;
begin for p := a to b do f.p := succ(z.p) end;
begin read©;
with x do begin a := ord©; b := c end;
y := x; if x = у then y := f(x);
with у do writeln(a,x)
end.
комбинированные типы. операторы присоединения. |