Jak napisać program w Delphi bazując na źródle z Tpascala?

Witam wszystkich!
Mam taki problem, poniżej zamieszczam źródło programu pod TurboPascala i chodzi o to, aby ten programik napisać w Delphi. W tym miejscu prosiłbym o pomoc. Jestem początkującym użytkownikiem Delphi i nie wiem jak się do tego zabrać.
Oto ten program:

PROGRAM Kombinacja_n_po_k;
USES
Crt;
CONST
Max_el = 100;
TYPE
Tablica = ARRAY [1 .. Max_el] OF INTEGER;
VAR
n : INTEGER;
k : INTEGER;
Tab : Tablica;

(-----------------------------------------------------------)

PROCEDURE Wyswietlanie(k :INTEGER);
VAR
Nr_elementu :INTEGER;
BEGIN

FOR Nr_elementu := 1 TO k DO
Write(Tab[Nr_elementu] : 4);
Writeln;

END;
(-----------------------------------------------------------)

PROCEDURE Kombinacja(a, b : INTEGER);
VAR
Element : INTEGER; (* dla Kombinacja *)
BEGIN
FOR Element := b to n - k + a DO
BEGIN
Tab[a] := Element;
IF a < k THEN
Kombinacja(a +1, Element+1)
ELSE
Wyswietlanie(k)
END
END;

(--------------------------------------------------------)
BEGIN
WHILE n<=k DO
BEGIN
ClrScr;
Writeln(' Wyznaczenie wszystkich kombinacji n po k');
Writeln;
Write(' Podaj ilosc elementow zbioru n........ : ');
ReadLn(n);
Write(' Podaj ilosc elementow podzbioru k .... : ');
ReadLn(k);
END;
Writeln;
IF n >= k THEN
Kombinacja(1,1);
Writeln;
REPEAT UNTIL KeyPressed;
END.

Jak się domyślacie wyznacza on wszystkie k-elementowe kombinacje bez powtórzeń ze zbioru n-elementowego dla 0=<k=<n.
Czekam na Wasze wskazówki i sugestie, a być może nawet na gotowe źródło. Z góry dzięki

Witam.Jak do tego programu zrobić algorytm?Jestem całkowicie zielona i będę wdzięczna za pomoc.

Algorytm to już jest, tylko interfejs użytkownika zamienić z DOS konsola na Windows GUI.

Do tego wystarczy na delphi formularzu, przez kliknięcie myszką wprowadzić dwa elementy edycyjne z palety komponentów GUI, oraz dla wyniku funkcji etykiety Label.

wtedy


Edit1.Text:= IntToStr(n); // readln(n)
oraz
n:= StrRoInt(Edit1.Text);

wtedy
Edit2.Text:= IntToStr(k); // readln(k)
oraz
k:= StrRoInt(Edit2.Text);

wynik dla pojedynczej kombinacji

resultat:= funkcja(n,k);

Label1.Caption:= "Wynik";
Label2.Caption(IntToStr(resultat));

dla większej ilości to należy wybrać z palety komponentów
komponent typu objekt memo lub grid string.

PROCEDURE Wyswietlanie(k :INTEGER);
VAR
Nr_elementu :INTEGER;
BEGIN

FOR Nr_elementu := 1 TO k DO
Memo1.Lines.AddStrings(IntToStr(Tab[Nr_elementu] ));
//Write(Tab[Nr_elementu] : 4);
//Writeln;

END;

No tak (chyba proste) ale ja potrzebuję w Pascalu a algorytm za pomocą schematu blokowego.Ale i tak wielkie dzięki za odzew.Pozdrawiam.

P.S Jak do tej pory to zrobiłam tylko tyle i utknęłam.(Dołączam screena).Algorytm blokowy ma być do programu z Pascala obliczającego k-elementowe kombinacje bez powtórzeń ze zbioru n-elementowego 0<=K<=n

Może jeszcze z łaski swojej sprecyzujesz w jakim Pascalu?

Delphi to rozszerzony Pascal o typ objektowy. Teraz jest do ściągnięcia w wersji personalnej pod nazwą rynkową Turbo Delphi. W końcu ty powinnaść
wiedzieć w jakim trybie komunikacji programu z użytkownikiem wymaga się lub na jakim sprzęcie i systemie operacyjnym ma być uruchamiany.

W trybie konsoli czy GUI Microsoftu?, lub inne interfejsy ... .

W Turbo Pascalu oczywiście.Ale nie denerwuj się tak z powodu mojej niewiedzy.Zachciało mi się uczyć a po medyku skończonym dość dawno to nie mam zbyt dobrego przygotowania matematycznego a co dopiero informatycznego.Wy młodzi to teraz nawet w podstawówce macie informatykę.Interesuję się tym, ale z programowania jestem i chyba zostanę noga-nie kapuje z tego ani trochę.Pozdrawiam.

Nie denerwuje się , tylko proszę o własciwe sformułownaie problemu tj. przedastawinie diagramu z algorytmem albo algorytmu ze źródłem-kodem-Wirtha? Tak nazywał się szwajcarski twórca pierwszej składni języka Pascal.

eco123 napisał:

przedastawinie diagramu z algorytmem albo algorytmu ze źródłem-kodem-Wirtha? Tak nazywał się szwajcarski twórca pierwszej składni języka Pascal.

Nie zebym sie czepial moze i jestes wyksztalcony ale pytanie brzmialo jak ma wygladac kod w delphi a nie szwajcarski tworca pierwszej skladni jezyka..
w trybie konsolowym to wyglada tak (zreszta nie widze potrzeby robienia tego programu w innym trybie tymbardziej jesli dopiero zaczynasz):



wyrzucilem tylko clrscr i repeat until keypressed zamienilem na readln... tyle