Программа проверяет принадлежат ли два адреса одному городу и одной улице. Используется переменная типа запись с 4 полями: город, улица, дом, квартира — Pascal(Паскаль)

Program test(input,output);
Type
         adress=record
                      city:array [1..16] of char;
                      street:array [1..16] of char;
                      number:integer;
                      flat:integer;
                      end;
Var
       adr1,adr2:adress;
Begin
{ввод данных}
read(adr1.city,adr1.street, adr2.city,adr2.street);
if (adr1.city=adr2.city) and (adr1.street=adr2.street) then
write(‘город и улица совпадают’);
else(‘город и улица несовпадают’);
End.