Файл содержит сведения о телефонах,каждая запись из которого содержит поля:фамилия абонента и номер телефона

@NataliNatali · Регистрация: 21.10.2012

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

Помогите пожалуйста проверить программу

1) Файл содержит сведения о телефонах,каждая запись из которого содержит поля:фамилия абонента и номер телефона.
2)Выдать информация об абонентах,подключенных на АТС-66.

Pascal

program a1;
uses crt;
type
abon=record
fname:string:
num:string;
end;
var
f:file of abon;
i:integer;
s:abon;
x:longint;
begin
asiign(f,'file');
{$I-}
reset(f);
{$+}
if Loresult<> 0 then
begin
rewrite(f);
for:=1 to 3 do
begin
write("Fname:');
readln(S.Fname);
write('TelNum:');
readln(f,s);
clscr;
end;end;
reset(f);
for i:=1 to 3 do begin
read(f,s);
if S.num[1]+s.num[2]='66' then
writeln(s.fname,':',s.num)
else
writeln('-');
end;
readln
end.

Добавлено через 2 часа 34 минуты
Помогите пожалуйста!!!

Добавлено через 30 минут
Очень нужна помощь

Я не понимаю,почему она не работает!

HighPredator · 28.10.2012, 16:13

NataliNatali, вот если бы вы сразу теги поставили, то и увидели бы. Ошибка же видна. Строка 23 - двойные кавычки.

@NataliNatali · 28.10.2012, 17:01 **[ТС]**

HighPredator, Все равно показывает ошибку в 5 строке!

HighPredator · 28.10.2012, 17:09

Там должна быть точка с запятой в конце. А у вас что?

@NataliNatali · 28.10.2012, 17:15 **[ТС]**

HighPredator, Исправила!

Теперь ошибку выдает в 23 строке

@Schtrich · 28.10.2012, 17:24

Сообщение от NataliNatali

HighPredator, Исправила!

Теперь ошибку выдает в 23 строке

Pascal

1	write('Fname:');

а не

Pascal

1	write("Fname:');

в 23 строке, замечаете разницу или нет?

Кстати, [ важно ] если есть сообщения об ошибке, то их тоже на форум выкладывайте!

@NataliNatali · 28.10.2012, 17:30 **[ТС]**

Schtrich, спасибо

еще ошибка в 26 строке

@Schtrich · 28.10.2012, 17:56

Сообщение от NataliNatali

Schtrich, спасибо

еще ошибка в 26 строке

Вы издеваетесь, я у вас что просил в предыдущем сообщении, там где метка [ важно ]?

@NataliNatali · 28.10.2012, 18:10 **[ТС]**

Schtrich, Простите,но я блонди!

Я не понимаю,Вас

@Schtrich · 28.10.2012, 19:11

Сообщение от NataliNatali

Schtrich, Простите,но я блонди!

Я не понимаю,Вас

Приключения блондинки в программировании

@NataliNatali · 28.10.2012, 19:36 **[ТС]**

Schtrich, Помогите пожалуйста мне

Я знаю,что я блонди-умная(ну,может не совсем умная в программировании),но я стараюсь

И к тому же я только учусь

@Schtrich · 28.10.2012, 20:11

ну во 1-ых

Pascal

1	assign(f,'file');

а не

Pascal

1	asiign(f,'file');

на 14-й строке

во 2-х

Pascal

clrscr;

а не

Pascal

clscr;

Да, к вашему глубокому сожалению на паскаль я уже давно забил, чего и всем желаю (хотя бы в будущем, для старта конечно в самый раз, особенно а ля "я блонди").

Случайно сюда зашел, если честно o.O

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	28.10.2012, 16:13	2
	NataliNatali, вот если бы вы сразу теги поставили, то и увидели бы. Ошибка же видна. Строка 23 - двойные кавычки. 0

@NataliNatali 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 33
	28.10.2012, 17:01 [ТС]	3
	HighPredator, Все равно показывает ошибку в 5 строке! 0

HighPredator 6045 / 2160 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	28.10.2012, 17:09	4
	Там должна быть точка с запятой в конце. А у вас что? 0

@NataliNatali 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 33
	28.10.2012, 17:15 [ТС]	5
	HighPredator, Исправила! Теперь ошибку выдает в 23 строке 0

@NataliNatali 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 33
	28.10.2012, 17:30 [ТС]	7
	Schtrich, спасибо еще ошибка в 26 строке 0

@Schtrich weboman 210 / 195 / 63 Регистрация: 13.08.2010 Сообщений: 1,531 Записей в блоге: 6
	28.10.2012, 17:56	8
	Сообщение от NataliNatali Schtrich, спасибо еще ошибка в 26 строке Вы издеваетесь, я у вас что просил в предыдущем сообщении, там где метка [ важно ]? 0

@NataliNatali 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 33
	28.10.2012, 18:10 [ТС]	9
	Schtrich, Простите,но я блонди! Я не понимаю,Вас 0

@Schtrich weboman 210 / 195 / 63 Регистрация: 13.08.2010 Сообщений: 1,531 Записей в блоге: 6
	28.10.2012, 19:11	10
	Сообщение от NataliNatali Schtrich, Простите,но я блонди! Я не понимаю,Вас Приключения блондинки в программировании 0

@NataliNatali 0 / 0 / 0 Регистрация: 21.10.2012 Сообщений: 33
	28.10.2012, 19:36 [ТС]	11
	Schtrich, Помогите пожалуйста мне Я знаю,что я блонди-умная(ну,может не совсем умная в программировании),но я стараюсь И к тому же я только учусь 0

	28.10.2012, 20:11