program Noname5;
    var date: char;
          i, yy, mm, dd : integer;
begin
    for i:= 1 to 2  do
begin
     read(date);
     yy:= date; <--- ERROR, nes iš char neina padaryti integer
end;
  Readln;
end.