уж очень прошу помочь пожалуйста.

[Стасек]

Я все понимаю,что я не один такой,ну не могу я сделать парочку задач...Пожалуйста взгляните :
1)Текст книги из 3 страниц задан в виде матрицы Т (3, 10, 15), каждый элемент которой очередной символ текста. В стра¬нице 10 строк, в каждой не более 15 символов.
Вывести с 7-й по 9-ю строку текста 2-й страницы и с 1-й по 6-ю строку текста 1-й страницы.

2)15. Вводится любое количество строк, длиной не более 50 символов.Cформировать на диске файл Т, в который войдут из исходных строк только цифры. Использовать проверку принадлежности символа Si к множеству цифр(TYPE ZIF=SET OF 0..9 .


Вот,уже глову сломал,не могу сделать....

[Duncon]

блин, достали студенты, лентяи и акромя этого еще и не в тот раздел пишут постоянно..

[Стасек]

пожалуйста,не оставляйте мою мольбу без внимания.первую я решил.люди добрые! милостливые!помогите со второй!

[BHy4ok]

На чем задачи?

[BHy4ok]

ВОт код #2 задачи, но я его не дописал. [записывает в файл цифры с введенной строки символов т.е. нету Проверки длины строки и кол-ва строк]

Код: Выделить всё

uses crt;
type
    k1 =set of char;
var
   K:k1;
   S,S2:string;
   i:integer;
   f:text;
begin ClrScr;
      Assign(f,'C:/string.txt');
      rewrite(f);
      K:=['0'..'9'];
      S2:='';
for i:=1 to length(S) do
    If s[i] in K then S2:=S2+S[i];
     writeln(f,S2);
     Close(f);
end.

[Стасек]

спасибо огромное!выручили то как!попробую сам доделать.еще раз спасибо.