Цитата:
Сообщение от Ins1s
ну у меня 2 человека  вот поэтому 2 адреса.. а все менял у меня стока ошибок потом выходит ..тип не соответствует и еще че нибудь...  |
Ну так и попробуйте, как Вам советуют:
type cheJIoBek=record
gorod: string;
yJIuILa: string;
end;
Или так:
type cheJIoBek=record
gorod: string[30];
yJIuILa: string[30];
end;
Да, кстати и проверка выполнена неправильно. Надо так:
for i:=1 to 2 do
with g [i] do if yJIuILa < 2 - убрать!
if g[1].yJIuILa=g[2].yJIuILa then
writeln ('adreca raBni eto cyDb6a' );
readln;