Создать типизированный файл avto, содержащий сведения об автомобилях

@xXxKirillxXx · Регистрация: 24.04.2012

Студворк — интернет-сервис помощи студентам

Pascal

Program zadanie1;
type
 avto = record
  marka:string[15];
  nomer:string[10];
  fam:string[25];
 end;
var
 a:array[1..20] of avto;
 i,n:integer;
 as:string[15];
begin
 write('n=');
 readln(n);
 for i:=1 to n do
  begin
   writeln('element N ',i);
   write('Марка: ');
   readln(a[i].marka);
   write('Номер: ');
   readln(a[i].nomer);
   write('Фамилия: ');
   readln(a[i].fam);
  end;
 
 writeln('------');
 
 write('Введите марку: ');
 readln(as);
 
 writeln('------');
 
 for i:=1 to n do
  begin
   if a[i].marka=as
    then
     begin
      writeln('+++++++++');
      writeln('Фамилия: ',a[i].fam);
      writeln('Номер ',a[i].nomer);
     end;
  end;
 
 readln;
end.

Это программа...
Задача следующая:
1. Создать типизированный файл avto, содержащий сведения об автомобилях (10 записей): марка автомобиля, его номер и фамилия владельца. Найти фамилии владельцев и номера автомобилей данной марки.

В 11 строке пишкт ожидался идентификатор

@КонецСвета · 24.04.2012, 22:09

xXxKirillxXx, as является служебным словом и не можт быть использовано в качестве имени для переменной...
замени на s...

@xXxKirillxXx · 24.04.2012, 22:32 **[ТС]**

КонецСвета, спасибо большое!))Долго дойти на могло что не так...
Еще раз спасибо!

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	24.04.2012, 22:09	2
	xXxKirillxXx, as является служебным словом и не можт быть использовано в качестве имени для переменной... замени на s... 1

@xXxKirillxXx 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 6
	24.04.2012, 22:32 [ТС]	3
	КонецСвета, спасибо большое!))Долго дойти на могло что не так... Еще раз спасибо! 0

Опции темы