тип записи

[world12_tk]

Добрый вечер..... У меня возникла серьезная проблема..... Я написал программу, которая описывает переменную "адрес", содержащую: название города, название улицы, номер дома, корпус, номер квартиры. Создать массив адресов. Меняет местами номер дома в N-ом адресе и номер квартиры в M-ом адресе.....
Вот исходник:

type
  address = record
    city:string;
    street:string;
    building:integer;
    corpus:integer;
    apartment:integer;
  end;

const
 N=100;
var
  addr1:address;
  arr:array[1..N] of address;
  coul:integer;
  i,house:integer;
begin
  repeat
    writeln ('введите количество записей: ');
    readln(coul);
  until (coul>0) and (coul<N);
  for i:=1 to coul do
  begin
    with arr[i] do
    begin
      writeln ('введите название города: ');
      readln(city);
      writeln ('введите название улицы: ');
      readln(street);
      writeln ('введите номер дома*: ');
      readln(building);
      writeln ('введите номер корпуса*: ');
      readln(corpus);
      writeln ('введите номер квартиры: ');
      readln(apartment);
      end;
  end;
  writeln ('введите номер дома: ');
  readln (house);
  for i:=1 to coul do
  begin
    if arr[i].building=house then
    begin
      arr[i].bulding:=arr[i].apartment;
      arr[i].apartment:=house;
      writeln ('замена местами номера дома но номер квартиры ');
      writeln ('теперь адрес выглядит так: ',arr[i]);
      readln;
    end;
  end;
end.

Мой исходничек не компилируется... Помогите мне его испрвить....
И у меня такой вопрос..... как менять местами номер N дома на номер M квартиры.....
зарание спасибо.....

From Stilet: Кот оформляй тегом #. В следующий раз тему удалю.

[Gonzo]

Как минимум, чтобы компиллировалось нужно исправить так:
[syntax=pascal]

type
address = record
city:string;
street:string;
building:integer;
corpus:integer;
apartment:integer;
end;

const
N=100;
var
addr1:address;
arr:array[1..N] of address;
coul:integer;
i,house:integer;
begin
repeat
writeln ('введите количество записей: ');
readln(coul);
until (coul>0) and (coul<N);
for i:=1 to coul do
begin
with arr[i] do
begin
writeln ('введите название города: ');
readln(city);
writeln ('введите название улицы: ');
readln(street);
writeln ('введите номер дома*: ');
readln(building);
writeln ('введите номер корпуса*: ');
readln(corpus);
writeln ('введите номер квартиры: ');
readln(apartment);
end;
end;
writeln ('введите номер дома: ');
readln (house);
for i:=1 to coul do
begin
if arr[i].building=house then
begin
arr[i].building:=arr[i].apartment;
arr[i].apartment:=house;
writeln ('замена местами номера дома но номер квартиры ');
writeln ('теперь адрес выглядит так: ',arr[i].building);
readln;
end;
end;
end.

[/syntax]

...Тебя это тоже касается

[world12_tk]

большое спасибо за исправление.....
теперь все работает....
А как поменять местами номер N дома на номер M квартиры...
и я что то не понял, как мне вывести на экран всю строчку этого адреса...?

[Gonzo]

Чтобы поменять местами нужна еще одна переменная такого же типа, например buf. Механизм такой: запоминаем в buf номер N дома, номеру N дома присваиваем номер M квартиры, номеру M квартиры присваиваем значение переменной buf. Такой механизм актуален для всех случаев обмена значениями. Чтобы вывести "всю строчку этого адреса" нужно вывести все поля.

[world12_tk]

хм..... вроде бы понятно..... а вот как вывести все поля? типо:
writeln('теперь адрес выглядит так: ',arr[i].city,arr[i].street,arr[i].building,arr[i].corpus,arr[i].apartment); или как то подругому?

[Gonzo]

именно так