Задача на удаление символов из текста

[Horknee]

Написать программу. Дан текстовый файл. В текст могут входить слова из латинских букв, цифры, знали арифметических операций, точка, запятая, пробел. Удалить из текста все символы, кроме букв и пробелов, заменить все большие буквы на маленькие. Вывести полученный текст.
Помогите, пожалуйста, в течении 40 минут. В долгу не останусь...спасибо

[alex_fcsm]

uses crt;
var f:text;
    ch:char;
    s:set of char;
begin
clrscr;
s:=['a'..'z','A'..'Z',#32];
assign(f,'c:\1.txt');
reset(f);
while not(eof(f)) do
 begin
  read(f,ch);
  if ch in s then begin
            if (ord(ch)<91)and (ord(ch)<>32) then  ch:=chr(ord(ch)+32);
            write(ch);
            end;
 end;
 close(f);
end.

[Horknee]

С меня отзыв как буду домаОгромное спасибо

[Horknee]

А что такое #32 и ord(ch)?

[alex_fcsm]

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

А что такое #32 и ord(ch)?

#32 - ASCII код пробела
ord(ch) - возвращает код ASCII
для прописных латинских букв код ASCII 65(A)-90(Z), а для малых (a-z) 97 -122
chr(x)- возвращает символ по коду x
Например chr(65) - вернет A

[Stilet]

#32

Это код пробела

ord(ch)

Это функа получения кода символа. см. в хелпе

[Horknee]

Оо все понял...только еще немного не сообразил откуда взялось chr(ord(ch)+32). И что это значит.

[alex_fcsm]

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

Оо все понял...только еще немного не сообразил откуда взялось chr(ord(ch)+32). И что это значит.

Это взялось из условия Если буква прописная и не пробел
ord(ch)<91 and ord(ch)<>32 то к коду прибавляем 32

chr(ord(ch)+32)

A-65 a-97 (97-65)=32
B-66 b-98 (98-66)=32
... ....
Z-90 z-122

[Horknee]

Если вам не сложно помогите пожалуйста еще одну задачку другу.
Дан целочисленный массив из n элементов. Все отрицательные элементы массива перенести в его начало, а остальные в конец,сохраняя исходное взаимное расположение как среди отрицательных, так и среди остальных элементов. Написать программу, которая вводит массив, переставляет его элементы и выводит результат на экран.

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,temp,j,k,otr:integer;
    
begin
clrscr;
for i:=1 to n do
begin
 a[i]:=random(10)-random(10);
 write(a[i]:3);
end;
otr:=0;
writeln;
for i:=1 to n do
  if a[i]<0 then begin
                  temp:=a[i];
                  j:=1;
                  inc(otr);
                  while a[j]<0 do inc(j);
                  dec(j);
                  if j<1 then j:=1;
                  for k:=i downto j+1 do
                   a[k]:=a[k-1];
                  a[otr]:=temp;
                 end;

 for i:=1 to n do
 write(a[i]:3);
end.