MyStruct = record ммм а че это??? рекорд что делает?

Понятно :)

Пойду почитаю про паскаль, завтра постараюсь выложить.

мм мне через массивы надо все это провернуть

ппц скока проггеров сразу нашлось, может мне кто с веб-дизайном поможет, коль на то пошло?)

как токо с прогами разберусь глаза вылечу помогу если успею а тут нас много тебе фотошоп или сам HTML

Примерно так. Подчеркивание - это пробелы, привычка :)

program Test;

const
__MAXSIZE = 100;
__DATAFILE = 'Data.txt'; // не помню, нужно ли указывать полный путь

var
__Data: text;
__Name: array[1..MAXSIZE] of string;
__Phone: array[1..MAXSIZE] of string;
__i: integer;
__s: string;

begin

for i := 1 to MAXSIZE do begin
__Name[i] := '';
__Phone[i] := '';
end;

Assign(Data, DATAFILE);
Reset(Data);

for i := 1 to MAXSIZE do begin
__if not EOF(Data) then ReadLn(Data, Name[i]) else Break;
__if not EOF(Data) then ReadLn(Data, Phone[i]) else Break;
end;

Close(Data);

while true do begin // Бесконечный цикл

__Write('Введите фамилию: ');
__Read(s);

__if s = 'q' then Break; // Выходим из проги как всегда через жо... через "q" :)

__for i := 1 to MAXSIZE do begin
____if Name[i] = s then begin
______WriteLn(' Номер телефона: ', Phone[i]);
______Break;
____end;
__end;

end;

WriteLn('Спасибо что обратились в нашу контору :)');

end.

Вот наша Data.txt:
Иванов
111-11-11
Петров
222-22-22
Сидоров
333-33-33
Дятлов
656-56-56
Трофимов
233-33-33
Петросян
545-54-54


Если не ошибаюсь, в конце файла обязательно должна быть пустая строка.

огромное спс завтра попробую

8-) не согласился чтоб я за блесы тебе решил. :-P

да ты из аськи смылся

мне CSS) HTML и фотошоп знаю, ща же куча видеокурсов в инете)
Лан, может кто подскажет, как сделать резиновый дизайн, то бишь не зависящий от разрешения экрана) Я вот только знаю, что нужно соотношение в % стаить вместо пикселей и все) еще проблемы с <div>-тегами) вообщем не в этой теме...%)